Как получить код клавиши клавиатуры.

@PRW07 · Регистрация: 03.08.2010

Студворк — интернет-сервис помощи студентам

Можно код клавиатуры перевести в символ:
Edit1.Text:=#61;

А вот как наоборот? Из символов введенных в Edit1.Text получить их код?

@Puporev · 17.09.2010, 10:01

Delphi
1
2
3
s:=Edit1.Text;
for i:=1 to length(s) do
Edit2.Text:=Edit2.Text+Inttostr(ord(s[i])+' ');

@Zabiyak · 17.09.2010, 10:17

Puporev,это ж вроде будет код символа...

А код клавиши - так:

Delphi
1
2
3
4
5
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  begin
    Label1.Caption:= IntToStr(Key);
  end;

Нажимаете клавишу при активной форме и видите в лейбле её код.

@Puporev · 17.09.2010, 10:28

Zabiyak, Так вроде это автор просил..

А вот как наоборот? Из символов введенных в Edit1.Text получить их код?

Добавлено через 1 минуту
При чем здесь нажатие клавиш?

@Zabiyak · 17.09.2010, 10:43

Из названия темы

В общем, видать автор сам не очень понимает, что ему нужно )

@PRW07 · 17.09.2010, 11:19 **[ТС]**

автор понимает, только название темы - это обобщенная формулировка того, что описано в самом посте.

Спасибо. Сейчас попробую.

Добавлено через 15 минут

Edit2.Text:=Edit2.Text+Inttostr(ord(s[i])+' ');

Выдает ошибку "несовпадение типов".

@Puporev · 17.09.2010, 11:22

Сообщение от PRW07

Inttostr(ord(s[i]))+' ';

Чуть мозг включай, опечатался я.

@PRW07 · 17.09.2010, 12:31 **[ТС]**

Ладно, ладно. Не кипишуй. Домой приеду разберусь. Некогда сейчас мозг переключать. На работе я, а работа не связана с программированием вообще.

Спасибо.

Добавлено через 23 минуты
Edit2.Text:=Edit2.Text+inttostr(ord(s[i]))+' ';

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@PRW07 0 / 0 / 0 Регистрация: 03.08.2010 Сообщений: 25

	Как получить код клавиши клавиатуры. 17.09.2010, 09:56. Показов 11890. Ответов 7 Метки нет (Все метки) Можно код клавиатуры перевести в символ: Edit1.Text:=#61; А вот как наоборот? Из символов введенных в Edit1.Text получить их код? 0

@Zabiyak КотЪ 219 / 219 / 60 Регистрация: 26.05.2009 Сообщений: 688
	17.09.2010, 10:43
	Из названия темы В общем, видать автор сам не очень понимает, что ему нужно ) 0

@PRW07 0 / 0 / 0 Регистрация: 03.08.2010 Сообщений: 25
	17.09.2010, 12:31 [ТС]
	Ладно, ладно. Не кипишуй. Домой приеду разберусь. Некогда сейчас мозг переключать. На работе я, а работа не связана с программированием вообще. Спасибо. Добавлено через 23 минуты Edit2.Text:=Edit2.Text+inttostr(ord(s[i]))+' '; 0