Люди добрые помогите правильно написать код, который выводит
в Label1->Caption соответствующий клавише код ANSI.

Это мой вариант:



Но почему то компилятор ругается что  символ не является целым.
Подскажите, как быть и что я не так сделал. 

как именно ругается и как именно выгладит код? 

Ругается он так:

       Project Project1.exe raised exception class EConvertError with
       message "к' is not a valid integer value'. Process stopped. Use
       Step or run to continue.

А здесь весь Unit1:
         

вместо
напиши 

Работает. Только почему на клавиши Enter или например Del выводит значение 0. 

потому как ты бредом занимаешся.
твой код можно и так:
Label1->Caption = Edit1->Text;
написать 

Написать конечно можно и так, но когда я ввожу в поле Edit например
символ 'g', то в Label выводится этот же символ, а мне нужен его ANSI 
код. 

sysux, ты что поверил в предыдущий пост _hunter'a как в совет по твоей проблеме?  

А вообще, я тоже не совсем понимаю, зачем тебе это нужно. 

Это сообщение отредактировал(а) s_a_s_h_a - 27.4.2006, 17:50

а каким боком тут клавиатура прилеплена?
и при чем тут enter? 

Может лучше обрабатывать событие OnKeyPress и выводить виртуальный код нажатой клавиши? 

Ну например у меня прога, в Edit которой я ввел
какие то цифры, теперь мне надо по нажатии Enter или
скажем Shift или другой клавиши произвести вычисление. 

??? понял еще меньше...
зачем, в таком случае, ASCII-коды? или ты реакцию на нажатие в edit' e хочеш сделать? 

Я не совсем понял, зачем нужно пытаться перевести содержимое всего Edit в код?

void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
Label1->Caption=(int)Key;
}
 

в интернете есть аски коды клавишь зачем заморочку такую делать  если надо узнать аски достаточно просто найти таблицу в jpg и на флешке носить  меньше места будет занимать чем прога  

в tech help есть коды клавишь ВСЕ и организованны в виде очень удобной таблицы 
а кстати для анси мона сделать так 

AnsiString MyKey;
for (unsigned char cKey = 0; cKey < 256; cKey++)
{
MyKey = MyKey + "(" + IntToStr(cKey) + ") - (" + cKey + ")";
Memo1->Lines->Add(MyKey);
MyKey = "";
}

Это сообщение отредактировал(а) NYX - 29.9.2009, 22:50

Правильно будет использовать другой обработчик:


Это сообщение отредактировал(а) SVN74 - 29.9.2009, 23:26