[an error occurred while processing this directive]
|
void __fastcall TMainForm::Memo1KeyPress(TObject *Sender, char &Key)
{
char aa = Key;
bClearFlag=false;
MainForm->Memo3->Lines->Strings[MainForm->Memo3->Lines->Count - 1] =
MainForm->Memo3->Lines->Strings[MainForm->Memo3->Lines->Count - 1]
+ (IntToHex(aa & 0xFF, 2))+ " ";
E-mail: info@telesys.ru