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

LazUtf8: Fix Utf8ToConsole. Patch by ChrisF, modified by me. Issue #0028371.

Browse Source 
git-svn-id: trunk@50514 -
This commit is contained in:
bart 2015-11-27 10:39:35 +00:00
parent bd6984dbfd
commit efc3ca18be
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazutils/winlazutf8.inc
View File

@ -245,13 +245,20 @@ var
begin
{$ifdef WinCE}
Result := UTF8ToSys(s);
{$else}
Result := UTF8ToSys(s);
{$else WinCE}
{$ifndef NO_CP_RTL}
Result := UTF8ToWinCP(s);
{$else NO_CP_RTL}
Result := UTF8ToSys(s); // Kept for compatibility
{$endif NO_CP_RTL}
Dst := AllocMem((Length(Result) + 1) * SizeOf(Char));
if CharToOEM(PChar(Result), Dst) then
Result := StrPas(Dst);
FreeMem(Dst);
{$endif}
{$ifndef NO_CP_RTL}
SetCodePage(RawByteString(Result), CP_OEMCP, False);
{$endif NO_CP_RTL}
{$endif WinCE}
end;
{$IFDEF MSWindows}