Browse Source

Merged revisions 610 via svnmerge from
/trunk

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

peter 20 năm trước cách đây
mục cha
commit
de03dad40e
1 tập tin đã thay đổi với 5 bổ sung1 xóa
  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;