чего то не выходит.
Как правильно сделать ?
var
a:integer;
begin
a:=StrToInt(Edit2.Text);
if StrToInt(Edit2.Text) > 10 then
MessageDlg('ERORR',mtError, mbOKCancel, 0);
end;
Сообщение отредактировано: Desktop_4 -
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Edit. Ограничение |
Desktop_4 |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 20 Пол: Мужской Репутация: 0 |
Как сделать что бы в Edit2 нельзя было ввести число больше 10 и при этом выводилось сообщение об ошибке...
чего то не выходит. Как правильно сделать ?
Сообщение отредактировано: Desktop_4 - |
Текстовая версия | 24.04.2024 1:23 |