paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 19:29:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Change comments for AdjustLineBreaks (bug ID 30959)

Browse Source 
git-svn-id: trunk@34969 -
This commit is contained in:
michael 2016-11-26 17:05:54 +00:00
parent 18f2592433
commit 3e21810dbd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/sysutils/sysstr.inc
View File

@ -707,9 +707,7 @@ begin
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;
@ -717,6 +715,8 @@ begin
Result:=AdjustLineBreaks(S,DefaultTextLineBreakStyle);
end;
{ Change CRLF, CR or LF with the indicated style }
function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle): string;
var
Source,Dest: PChar;