paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 07:59:27 +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

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

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