[Gareth]

Сообщение от Number_6

Здравствуйте, подскажите, как сделать Edit пустым(чтобы ничего не выводилось), если при вычислении получается отрицательное число.
пример
Edit3.text:=Edit2.text-Edit1.Text;
Если в Edit3 получится отрицательное значение, то оставить его пустым(ничего не выводить)
Заранее спасибо

Код:

  if StrToInt(sEdit2.Text) - StrToInt(sEdit1.Text) >= 0 then // если сумма больше или ровна нулю
  begin
    sEdit3.Text := IntToStr(StrToInt(sEdit2.Text) - StrToInt(sEdit1.Text)) ; // то выполняется данный код
  end;