paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 01:11:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: catching exception for conversion try

Browse Source 
git-svn-id: trunk@14920 -
This commit is contained in:
mattias 2008-04-21 15:24:20 +00:00
parent e254c10254
commit be047c5015
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lcl/lconvencoding.pas
View File

@ -4196,23 +4196,23 @@ begin
end;
//Stupid code. Works anyway, but extra-slow
Result:=s;
{$ifdef Unix}
DebugLn(['CPConvert NOTE: using slow iconv workaround to convert from ',AFrom,' to ',ATo]);
SL:=TStringList.Create;
SL.Text:=s;
FN1:=GetTempFileName;
SL.SaveToFile(FN1);
FN2:=GetTempFileName;
fpSystem('iconv -f '+FromEncoding+' -t '+ToEncoding+' '+FN1+' >'+FN2);
SL.LoadFromFile(FN2);
if SL.Text<>'' then
Result:=SL.Text
else
Result:=s;
DeleteFile(FN1);
DeleteFile(FN2);
{$else}
Result:=s;
try
SL:=TStringList.Create;
SL.Text:=s;
FN1:=GetTempFileName;
SL.SaveToFile(FN1);
FN2:=GetTempFileName;
fpSystem('iconv -f '+FromEncoding+' -t '+ToEncoding+' '+FN1+' >'+FN2);
SL.LoadFromFile(FN2);
if SL.Text<>'' then
Result:=SL.Text;
DeleteFile(FN1);
DeleteFile(FN2);
except
end;
{$endif}
end;