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

Tunes the ansi conversion to really target ansi, not utf-8 as previously

Browse Source 
git-svn-id: trunk@32978 -
This commit is contained in:
sekelsenmat 2011-10-19 08:57:31 +00:00
parent 5b05dc0fdd
commit 4d936c5608
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/lazutils/paswstring.pas
View File

@ -37,8 +37,10 @@ begin
SetLength(widestr, len);
System.Move(source^, widestr[1], len);
// Now convert it, using UTF-8 -> UTF-16
// Now convert it, using UTF-16 -> UTF-8
dest := UTF16ToUTF8(widestr);
// And correct to the real Ansi encoding
dest := ConvertEncoding(dest, EncodingUTF8, GetDefaultTextEncoding());
end;
procedure Ansi2WideMove(source:pchar;var dest:widestring;len:SizeInt);
@ -50,7 +52,9 @@ begin
SetLength(ansistr, len);
System.Move(source^, ansistr[1], len);
// Now convert it, using UTF-16 -> UTF-8
// Convert to UTF-8
ansistr := ConvertEncoding(ansistr, GetDefaultTextEncoding(), EncodingUTF8);
// Now convert it, using UTF-8 -> UTF-16
dest := UTF8ToUTF16(ansistr);
end;
@ -286,8 +290,10 @@ begin
SetLength(widestr, len);
System.Move(source^, widestr[1], len*2);
// Now convert it, using UTF-8 -> UTF-16
// Now convert it, using UTF-16 -> UTF-8
dest := UTF16ToUTF8(widestr);
// And correct to the real Ansi encoding
dest := ConvertEncoding(dest, EncodingUTF8, GetDefaultTextEncoding());
end;
procedure Ansi2UnicodeMove(source:pchar;var dest:UnicodeString;len:SizeInt);
@ -299,7 +305,9 @@ begin
SetLength(ansistr, len);
System.Move(source^, ansistr[1], len);
// Now convert it, using UTF-16 -> UTF-8
// Convert to UTF-8
ansistr := ConvertEncoding(ansistr, GetDefaultTextEncoding(), EncodingUTF8);
// Now convert it, using UTF-8 -> UTF-16
dest := UTF8ToUTF16(ansistr);
end;