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

LCL: clean up

Browse Source 
git-svn-id: trunk@27105 -
This commit is contained in:
mattias 2010-08-16 08:08:02 +00:00
parent 8d715a791f
commit 3c18a7f2dd
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lconvencoding.pas
View File

@ -5625,7 +5625,7 @@ var
function UTF8CharToCP936(const AChar: string): string; function UTF8CharToCP936(const AChar: string): string;
begin begin
Result:=AChar;
end; end;
begin begin
@ -5640,6 +5640,7 @@ begin
if c<#128 then if c<#128 then
begin begin
CharStr := c; CharStr := c;
// ToDo: do not use slow string operations, (see for example UTF8ToUCS2BE)
Result := Result + UTF8CharToCP936(CharStr); Result := Result + UTF8CharToCP936(CharStr);
inc(Src); inc(Src);
dec(len); dec(len);
@ -5649,6 +5650,7 @@ begin
CharStr := c; CharStr := c;
Inc(Src); Inc(Src);
CharStr := CharStr + Src^; CharStr := CharStr + Src^;
// ToDo: do not use slow string operations
Result := Result + UTF8CharToCP936(CharStr); Result := Result + UTF8CharToCP936(CharStr);
inc(Src); inc(Src);
dec(len, 2); dec(len, 2);