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

* change mode fmappend to fmoutput in streamopen. Refer to comments in text.inc.

Browse Source 
This makes append work in streamio.

git-svn-id: trunk@46268 -
This commit is contained in:
marco 2020-08-05 16:41:20 +00:00
parent aa633544f1
commit f1dbae577c
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -99,11 +99,14 @@ begin
begin begin
InOutFunc:=@StreamWrite; InOutFunc:=@StreamWrite;
FlushFunc:=@StreamWrite; FlushFunc:=@StreamWrite;
if mode=fmAppend then if Mode=fmAppend then
Try begin
GetStream(F).Seek(0,soFromEnd); Mode:=fmOutput; // see comments in text.inc
except Try
InOutRes:=156; GetStream(F).Seek(0,soFromEnd);
except
InOutRes:=156;
end;
end; end;
end; end;
end; end;