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

* Add Flush method to TFileStream. Fix issue #39619

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-03-10 09:35:18 +01:00
parent 82ccc863ef
commit 5ca52bcab1
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/classes/classesh.inc
View File

@ -1187,6 +1187,7 @@ type
constructor Create(const AFileName: string; Mode: Word); constructor Create(const AFileName: string; Mode: Word);
constructor Create(const AFileName: string; Mode: Word; Rights: Cardinal); constructor Create(const AFileName: string; Mode: Word; Rights: Cardinal);
destructor Destroy; override; destructor Destroy; override;
Function Flush : Boolean;
property FileName : String Read FFilename; property FileName : String Read FFilename;
end; end;

5
rtl/objpas/classes/streams.inc
View File

@ -1336,6 +1336,11 @@ begin
FileClose(FHandle); FileClose(FHandle);
end; end;
function TFileStream.Flush : Boolean;
begin
Result:=FileFlush(Handle);
end;
{****************************************************************************} {****************************************************************************}
{* TCustomMemoryStream *} {* TCustomMemoryStream *}
{****************************************************************************} {****************************************************************************}