169 похожих чатов

Нужна помощь зала :-) Есть вот такой код: procedure TFMain.LESearchDRyKeyPress(Sender: TObject; var

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-кодировке. Чем или как это правильнее сделать?
Что делать?

1 ответов

13 просмотров

Стикер

Похожие вопросы

Обсуждают сегодня

А как старый хаскел с новым стыковать ? потому как тут работает https://play.haskell.org/saved/C3xpMzcd, а вот тут https://stepik.org/lesson/7602/step/9?unit=1473 нет ошибка C...
Fedor
131
Народ, кто шарит в расширенных разделах (EBR/EPR) на дисках с разметками MBR? Везде пишут (в вики рус/англ) в частности + другие источники смотрел, что первый сектор расширенн...
Eugene Krasnikov (ᴊɪɴ x)
1
что насчет пагинга? на осдеве непонятно(
Vi Chapmann 🪙
26
Вопрос я правильно понимаю что в коде newtype ArrowMap k v = ArrowMap { getArrowMap :: k -> Maybe v } getArrowMap есть функция типа k -> Maybe v, если да, то не понимаю задач...
Fedor
64
Ребят, что лучше для реверса: гидра или ида?
En Vind Av Sorg
26
Делаю велосипед логгер. К сообщению хочу прикрутить некоторую информацию, типа, кем отправлено, какой уровень, и всякое такое. И тут подумалось мне, почему бы не хранить весь...
Serjone
24
Как Вы считаете нормально ли в двадцатых годах 21 века в ВУЗах Российской Федерации обучать студентов работе с TASM? Не слишком ли это "архаично"? (Если оффтоп или флейм для э...
Spiker01
52
Комрады, хотел уточнить. Проперть в OnDestroy юнита-хозяина по-прежнему доступна? И еще уточнение: finalization юнита наступает раньше или позже OnDestroy?
Ed Doc
48
Продолжая диалог про свифт в проде – сейчас возник вопрос в активном наборе бекендеров. В основном в нашей компании мы фанаты Java Spring и полностью ей довольны. Однако найм ...
Guseyn
27
Читаю сейчас [нет, уже больше не читаю!] курсовую о Булгакове, написанную, похоже, с помощью ChatGPT. Это удивительный психоделический опыт. Текст в основном написан в стиле б...
✨ Uni [🌊 В отпуске]
1
Карта сайта