paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 17:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for bug #9022 (merge)

Browse Source 
git-svn-id: trunk@7602 -
This commit is contained in:
marco 2007-06-09 13:12:16 +00:00
parent bce3ea4373
commit 8bae130fcb
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-base/src/inc/streamio.pp
View File

@ -126,6 +126,11 @@ begin
begin
OpenFunc:=@StreamOpen;
CloseFunc:=@StreamClose;
Case DefaultTextLineBreakStyle Of
tlbsLF: TextRec(f).LineEnd := #10;
tlbsCRLF: TextRec(f).LineEnd := #13#10;
tlbsCR: TextRec(f).LineEnd := #13;
End;
PStream(@UserData)^:=Stream;
Mode:=fmClosed;
BufSize:=SizeOf(Buffer);