IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Edit. Ограничение
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской

Репутация: -  0  +


Как сделать что бы в Edit2 нельзя было ввести число больше 10 и при этом выводилось сообщение об ошибке...
чего то не выходит.
Как правильно сделать ?

var
a:integer;
begin
a:=StrToInt(Edit2.Text);
if StrToInt(Edit2.Text) > 10 then
MessageDlg('ERORR',mtError, mbOKCancel, 0);
end;





Сообщение отредактировано: Desktop_4 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






procedure TForm1.Edit2Exit(Sender: TObject);
begin
if StrToIntDef(Edit2.Text, 100) > 10 then begin

ShowMessage('error'); Edit2.SetFocus;

end;
end;
При вводе числа больше 10, или строки, не являющейся числом вообще, и попытке убрать фокус с Эдита - получишь сообщение об ошибке.
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 5.12.2020 16:31
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name