Как сделать что бы в Edit2 нельзя было ввести число больше 10 и при этом выводилось сообщение об ошибке...
чего то не выходит.
Как правильно сделать ?
var
a:integer;
begin
a:=StrToInt(Edit2.Text);
if StrToInt(Edit2.Text) > 10 then
MessageDlg('ERORR',mtError, mbOKCancel, 0);
end;
procedure TForm1.Edit2Exit(Sender: TObject);При вводе числа больше 10, или строки, не являющейся числом вообще, и попытке убрать фокус с Эдита - получишь сообщение об ошибке.
begin
if StrToIntDef(Edit2.Text, 100) > 10 then begin
ShowMessage('error'); Edit2.SetFocus;
end;
end;