소스 검색

Merged revisions 610 via svnmerge from
/trunk

git-svn-id: branches/fixes_2_0@684 -

peter 20 년 전
부모
커밋
de03dad40e
1개의 변경된 파일5개의 추가작업 그리고 1개의 파일을 삭제
  1. 5 1
      rtl/inc/text.inc

+ 5 - 1
rtl/inc/text.inc

@@ -81,7 +81,11 @@ Begin
   TextRec(t).BufSize:=TextRecBufSize;
   TextRec(t).Bufptr:=@TextRec(t).Buffer;
   TextRec(t).OpenFunc:=@FileOpenFunc;
-  TextRec(t).LineEnd:=LineEnding;
+  Case DefaultTextLineBreakStyle Of
+    tlbsLF: TextRec(t).LineEnd := #10;
+    tlbsCRLF: TextRec(t).LineEnd := #13#10;
+    tlbsCR: TextRec(t).LineEnd := #13;
+  End;  
   Move(s[1],TextRec(t).Name,Length(s));
 End;