mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: TStringListEx class with UTF8 file name support

Browse source
This commit is contained in:
Alexander Koblov 2008-05-18 14:56:05 +00:00
commit bdda0ff5ad
1 changed files with 28 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

28
uclassesex.pas
View file

@ -43,6 +43,14 @@ type
property FileName : UTF8String read FFileName;
end;
{ TStringListEx }
TStringListEx = class(TStringList)
public
procedure LoadFromFile(const FileName: String); override;
procedure SaveToFile(const FileName: String); override;
end;
{ TIniFileEx }
TIniFileEx = class(TIniFile)
@ -83,6 +91,26 @@ begin
inherited Destroy;
end;
{ TStringListEx }
procedure TStringListEx.LoadFromFile(const FileName: String);
var
fsFileStream: TFileStreamEx;
begin
fsFileStream:= TFileStreamEx.Create(FileName, fmOpenRead);
LoadFromStream(fsFileStream);
fsFileStream.Free;
end;
procedure TStringListEx.SaveToFile(const FileName: String);
var
fsFileStream: TFileStreamEx;
begin
fsFileStream:= TFileStreamEx.Create(FileName, fmCreate);
SaveToStream(fsFileStream);
fsFileStream.Free;
end;
{ TIniFileEx }
constructor TIniFileEx.Create(const AFileName: String; AEscapeLineFeeds: Boolean);