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

* use CP_OEMCP to convert characters in LegacyChar2ExtendedGraphemeCluster

Browse Source 
git-svn-id: branches/unicodekvm@48533 -
This commit is contained in:
nickysn 2021-02-08 14:06:44 +00:00
parent 453bdaaafc
commit 11db30ab3d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/rtl-console/src/inc/video.inc
View File

@ -313,8 +313,13 @@ begin
end; end;
function LegacyChar2ExtendedGraphemeCluster(const Ch: Char): UnicodeString; function LegacyChar2ExtendedGraphemeCluster(const Ch: Char): UnicodeString;
var
tmpS: RawByteString;
begin begin
Result := Ch; SetLength(tmpS, 1);
tmpS[1]:=Ch;
System.SetCodePage(tmpS,CP_OEMCP,False);
Result:=tmpS;
end; end;
procedure Enhanced2Legacy; procedure Enhanced2Legacy;