Key: Char);
Var
aKey:AnsiChar;
ai:Boolean;
begin
aKey:=AnsiString(String(Key))[1];
{$IFDEF DEBUG}
LInfo.Caption:='Key: '+Key+' ('+IntToStr(Ord(Key))+':$'+IntToHex(Ord(Key),4)+') ansiKey: '+aKey+' ('+IntToStr(Ord(aKey))+':$'+IntToHex(Ord(aKey),4)+')';
....
Так вот. Если винда НЕ русская, но AnsiString выдает фигню :(
-----
Key: в (1074:$0432) ansiKey: ? (63:$003F)
Key: а (1072:$0430) ansiKey: ? (63:$003F)
----
На русской винде - все отлично работает. Нужно по сути привести считанный Char в обычной ANSI-кодировке. Чем или как это правильнее сделать?
Что делать?
Стикер
Обсуждают сегодня