浏览代码

* Change comments for AdjustLineBreaks (bug ID 30959)

git-svn-id: trunk@34969 -
michael 8 年之前
父节点
当前提交
3e21810dbd
共有 1 个文件被更改,包括 3 次插入3 次删除
  1. 3 3
      rtl/objpas/sysutils/sysstr.inc

+ 3 - 3
rtl/objpas/sysutils/sysstr.inc

@@ -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;