Скачать: CL | DM;

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

← →
Добавить   (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]
> Нет,

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

---

← →
MBo ©   (2005-01-17 08:10) [8]

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

---

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

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

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

---

← →
Kerk ©   (2005-01-17 08:23) [10]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c