Как преобразовать коды нажимаемых клавиш в слова и обратно ?

← →
Добавить (2005-01-17 06:05) [0]

Чтобы одна функция преобразовывала бы, скажем, 27 в строчку тексат "VK_ESCAPE", а другая, обратно из строки давала бы соответсвующую цифру ? Это нужно, для сохранения клавиш в текстовый файл, и возможности ручного подредактирования, в случае чего.

← →
Kerk © (2005-01-17 06:06) [1]

ну.. видимо руками.

← →
Добавить (2005-01-17 06:25) [2]

> Kerk © (17.01.05 06:06) [1]
> ну.. видимо руками.

А может функции готовые есть ?

← →
Antonn © (2005-01-17 07:01) [3]

:-)

Function InttoKey(I:integer):string;
begin
case i of
27: result:="VK_ESCAPE";
...//и так перебрать все
end;
end;

← →
Kerk © (2005-01-17 07:03) [4]

Antonn © (17.01.05 7:01) [3]
Почти готовая функция.. :)

← →
Добавить (2005-01-17 07:07) [5]

> Antonn © (17.01.05 07:01) [3]
> :-)
>
> Function InttoKey(I:integer):string;
> begin
> case i of
> 27: result:="VK_ESCAPE";
> ...//и так перебрать все
> end;
> end;

Три метра кода вставлять в свою программу. Неужели нет готовой функции ?

← →
Поручик © (2005-01-17 07:08) [6]

Нет, проще всего создать 2 массива - один числа, другой - соответствующие наименования
Потом подставлять...

← →
Добавить (2005-01-17 07:18) [7]

> Поручик © (17.01.05 07:08) [6]
> Нет,

Точно нет ? А может есть ? И когда придёт Мастер Дельфи, то он нам ресскажет ?

GetKeyNameText (но не в виде VK_***)

Добавить (17.01.05 7:18) [7]

То что я написал делать - 7 минут. За то время, что прошло с моего поста до твоего, ты бы все сделал

> И когда придёт Мастер Дельфи, то он нам ресскажет ?

Если у тебя вопросы к кому-то лично, то пиши ему мылом.

Как преобразовать коды нажимаемых клавиш в слова и обратно ? Найти похожие ветки