paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 16:20:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Adds more encoding conversion support, patch from bug #23446

Browse Source 
git-svn-id: trunk@39536 -
This commit is contained in:
sekelsenmat 2012-12-14 11:59:46 +00:00
parent f1d9d42341
commit dac086ca0f
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/lazutils/lconvencoding.pas
View File

@ -6527,6 +6527,14 @@ begin
Result:=KOI8ToUTF8(s);
Encoded := true;
end
else if AFrom = EncodingUCS2LE then begin
Result := UCS2LEToUTF8(s);
Encoded := true;
end
else if AFrom = EncodingUCS2BE then begin
Result := UCS2BEToUTF8(s);
Encoded := true;
end
else if (AFrom=SysEnc) and Assigned(ConvertAnsiToUTF8) then begin
Result:=ConvertAnsiToUTF8(s);
Encoded := true;
@ -6621,6 +6629,14 @@ begin
Result:=UTF8ToKOI8(Result);
Encoded := true;
end
else if ATo = EncodingUCS2LE then begin
Result := UTF8ToUCS2LE(Result);
Encoded := true;
end
else if ATo = EncodingUCS2BE then begin
Result := UTF8ToUCS2BE(Result);
Encoded := true;
end
else if (ATo=SysEnc) and Assigned(ConvertUTF8ToAnsi) then begin
Result:=ConvertUTF8ToAnsi(Result);
Encoded := true;