|
@@ -707,9 +707,7 @@ begin
|
|
end ;
|
|
end ;
|
|
|
|
|
|
|
|
|
|
-{ AdjustLineBreaks returns S with all CR characters not followed by LF
|
|
|
|
- replaced with CR/LF }
|
|
|
|
-// under Linux all CR characters or CR/LF combinations should be replaced with LF
|
|
|
|
|
|
+{ Change CRLF, CR or LF with the default for the current platform }
|
|
|
|
|
|
function AdjustLineBreaks(const S: string): string;
|
|
function AdjustLineBreaks(const S: string): string;
|
|
|
|
|
|
@@ -717,6 +715,8 @@ begin
|
|
Result:=AdjustLineBreaks(S,DefaultTextLineBreakStyle);
|
|
Result:=AdjustLineBreaks(S,DefaultTextLineBreakStyle);
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+{ Change CRLF, CR or LF with the indicated style }
|
|
|
|
+
|
|
function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle): string;
|
|
function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle): string;
|
|
var
|
|
var
|
|
Source,Dest: PChar;
|
|
Source,Dest: PChar;
|