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

LCL: fixed ConvertEncoding fpr empty strings

Browse Source 
git-svn-id: trunk@31599 -
This commit is contained in:
mattias 2011-07-08 07:37:41 +00:00
parent 880fd18517
commit f6ca7c7d1b
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/lconvencoding.pas
View File

@ -6330,12 +6330,19 @@ begin
AFrom:=NormalizeEncoding(FromEncoding);
ATo:=NormalizeEncoding(ToEncoding);
SysEnc:=NormalizeEncoding(GetDefaultTextEncoding);
if AFrom=EncodingAnsi then AFrom:=SysEnc;
if ATo=EncodingAnsi then ATo:=SysEnc;
if AFrom=EncodingAnsi then AFrom:=SysEnc
else if AFrom='' then AFrom:=EncodingUTF8;
if ATo=EncodingAnsi then ATo:=SysEnc
else if ATo='' then ATo:=EncodingUTF8;
if AFrom=ATo then begin
Result:=s;
exit;
end;
if s='' then begin
if ATo=EncodingUTF8BOM then
Result:=UTF8BOM;
exit;
end;
//DebugLn(['ConvertEncoding ',AFrom,' ',ATo]);
if (AFrom=EncodingUTF8) then begin