paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 11:47:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

Final fix for 20552

Browse Source 
git-svn-id: trunk@33084 -
This commit is contained in:
sekelsenmat 2011-10-26 02:38:40 +00:00
parent 9dec676a01
commit 4b223aa89d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lconvencoding.pas
View File

@ -154,7 +154,7 @@ begin
case cp of case cp of
CP_UTF8: Result := EncodingUTF8; CP_UTF8: Result := EncodingUTF8;
else else
Result:='cp'+IntToStr(GetACP); Result:='cp'+IntToStr(cp);
end; end;
end; end;
{$ELSE} {$ELSE}