|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Ограничение вывода отрицательного числа в Edit
Здравствуйте, подскажите, как сделать Edit пустым(чтобы ничего не выводилось), если при вычислении получается отрицательное число.
пример Edit3.text:=Edit2.text-Edit1.Text; Если в Edit3 получится отрицательное значение, то оставить его пустым(ничего не выводить) Заранее спасибо Последний раз редактировалось Number_6, 24.04.2022 в 22:05. |
#2
|
|||
|
|||
Цитата:
Код:
if StrToInt(sEdit2.Text) - StrToInt(sEdit1.Text) >= 0 then // если сумма больше или ровна нулю begin sEdit3.Text := IntToStr(StrToInt(sEdit2.Text) - StrToInt(sEdit1.Text)) ; // то выполняется данный код end; |