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

TStrings: add missing SaveToFile overload with IgnoreEncoding parameter

Browse Source 
git-svn-id: trunk@43945 -
This commit is contained in:
ondrej 2020-01-14 15:16:04 +00:00
parent 7dba9f0294
commit 6ed89d4101
2 changed files with 16 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

@ -749,6 +749,7 @@ type
Function Reverse : TStrings;
Procedure Reverse(aList : TStrings);
procedure SaveToFile(const FileName: string); overload; virtual;
procedure SaveToFile(const FileName: string; IgnoreEncoding : Boolean); overload;
procedure SaveToFile(const FileName: string; AEncoding: TEncoding); overload; virtual;
procedure SaveToStream(Stream: TStream); overload; virtual;
procedure SaveToStream(Stream: TStream; IgnoreEncoding : Boolean); overload;

15
rtl/objpas/classes/stringl.inc
View File

@ -1502,6 +1502,21 @@ end;
Procedure TStrings.SaveToFile(const FileName: string; IgnoreEncoding : Boolean);
Var TheStream : TFileStream;
begin
TheStream:=TFileStream.Create(FileName,fmCreate);
try
SaveToStream(TheStream, IgnoreEncoding);
finally
TheStream.Free;
end;
end;
Procedure TStrings.SaveToFile(const FileName: string; AEncoding: TEncoding);
Var TheStream : TFileStream;