paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-24 03:48:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: small optimization

Browse Source 
git-svn-id: trunk@37655 -
This commit is contained in:
mattias 2012-06-15 16:39:31 +00:00
parent d7f32c5301
commit d326a205cc
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazutils/lazutf8classes.pas
View File

@ -35,6 +35,11 @@ procedure LoadStringsFromFileUTF8(List: TStrings; const FileName: string);
var var
uList: TStringListUTF8; uList: TStringListUTF8;
begin begin
if List is TStringListUTF8 then
begin
List.LoadFromFile(FileName);
exit;
end;
uList:=TStringListUTF8.Create; uList:=TStringListUTF8.Create;
try try
uList.LoadFromFile(FileName); uList.LoadFromFile(FileName);
@ -48,6 +53,11 @@ procedure SaveStringsToFileUTF8(List: TStrings; const FileName: string);
var var
uList: TStringListUTF8; uList: TStringListUTF8;
begin begin
if List is TStringListUTF8 then
begin
List.SaveToFile(FileName);
exit;
end;
uList:=TStringListUTF8.Create; uList:=TStringListUTF8.Create;
try try
uList.Assign(List); uList.Assign(List);