void __fastcall TForm1::Button1Click(TObject *Sender){int a; try { a=StrToInt(Edit1->Text); } catch (EConvertError&) { Application->MessageBoxA("Вы ввели неверное число","повторите ввод",MB_OK); } Label1->Caption=a;}подскажите где ошибка , код отлавливается после остановки программы и выдачи сообщения об ошибке[attachmentid=424] после этого заускаю заново на выпонение и только тогда включается в работу мой обработчик.
|