paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 23:30:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #33043

Browse Source 
git-svn-id: trunk@38017 -
This commit is contained in:
michael 2018-01-20 14:40:19 +00:00
parent b4d8ea7477
commit ea00dc02cc
1 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
packages/fcl-base/src/streamio.pp
View File

@ -38,51 +38,53 @@ Type
---------------------------------------------------------------------}
Function StreamRead(var F: TTextRec) : longint;
procedure StreamRead(var F: TTextRec);
begin
Result:=0;
InOutRes:=0;
With F do
Try
Bufend:=GetStream(F).Read(BufPtr^,BufSize);
BufPos:=0;
except
Result:=100;
InOutRes:=100;
end;
end;
Function StreamWrite(var F: TTextRec ): longint;
procedure StreamWrite(var F: TTextRec );
begin
Result:=0;
InOutRes:=0;
with F do
if (BufPos>0) then
try
GetStream(F).WriteBuffer(BufPtr^,BufPos);
BufPos:=0;
except
Result:=101;
InOutRes:=101;
end;
end;
Function StreamFlush(var F: TTextRec): longint;
{$PUSH}
{$WARN 5024 OFF : Parameter "$1" not used}
Procedure StreamFlush(var F: TTextRec);
begin
Result:=0;
InOutRes:=0;
end;
Function StreamClose(var F: TTextRec): longint;
procedure StreamClose(var F: TTextRec);
begin
Result:=0;
InOutRes:=0;
end;
{$POP}
Function StreamOpen(var F: TTextRec ): longint;
Procedure StreamOpen(var F: TTextRec );
begin
Result := 0;
InOutRes:=0;
with F do
begin
BufPos:=0;
@ -101,7 +103,7 @@ begin
Try
GetStream(F).Seek(0,soFromEnd);
except
Result:=156;
InOutRes:=156;
end;
end;
end;
@ -130,11 +132,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;
Case DefaultTextLineBreakStyle Of
tlbsLF: LineEnd:=#10;
tlbsCRLF: LineEnd:=#13#10;
tlbsCR: LineEnd:=#13;
End;
PStream(@UserData)^:=Stream;
Mode:=fmClosed;
BufSize:=SizeOf(Buffer);