24.04.2018, 08:09
|
Активный
|
|
Регистрация: 26.01.2014
Сообщения: 282
Версия Delphi: delphi xe4
Репутация: выкл
|
|
Код:
begin
Caption := '=';
try
i := StrToInt(Caption);
except on E: EConvertError do
begin
MessageDlg(PChar('Внимание, вы ввели неправильные - значения'), mtError, mbOKCancel, 0);
end;
end;
end;
|