소스 검색

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