Отмена условия, возврат к изначальному

[Дикий]

вот допустим чел вводит edit1, edit2, edit3, и забывает ввести edit4 нажимает "вычислить"

if Edit4.Text = '' then
ShowMessage('xxx');

скомпилированный проект показывает назначенное сообщение, но затем еще и стандартное: '' is not a valid integer value

как сделать так, что бы его небыло???


простите за глупые вопросы... я только учусть

[Костя КС]

просто в ButtonClick сразу после begin допиши

if length(edit4.Text) = 0 then edit4.Text:= '0'; // length - длина строки

самый легкий способ.

А можно сделать,чтобы кнопка блокировалась, если edit пустой
через edit -> onChange

procedure TForm1.Edit4Change(Sender: TObject);
begin
   if length(edit4.Text) = 0 then button1.Enabled := false
     else   button1.Enabled := true;
end;

[Stilet]

Насколько я понимаю ты из Эдитов получаешь число? Тогда при получении пользуйся либо try...except либо StrTointDef либо TryStrToInt. И уже с помошью них анализируй правильно ли в Эдит введено число.

просто в ButtonClick сразу после begin допиши

Не вводи в заблуждение автора - читай внимательно вопрос:" is not a valid integer value"

[Дикий]

эх чуваки

как написанно в подписи у одного человека - всё гениальное - просто!

так вот... нашел. смотрите:

begin

  if Length(Form1.Edit1.Text) = 0 then
  begin
      ShowMessage('Надо ввести скорость!');
      exit; //zavershit' obrabotku sobitiya
  end;

[Карась]

Это не гениальное..... это азы

А если в едит введены буквы? Это уже не прокатит...

[Дикий]

Ладно, поменяем...
в программе это выглядит так:

   1. begin  
   2.   
   3.   if Edit1.Caption = ' ' then  
   4.   begin  
   5.       ShowMessage('Надо ввести скорость!');  
   6.       exit; //zavershit' obrabotku sobitiya  
   7.   end;

и так для каждого эдита...
помоему ничего не изменилось... а в кейпрессе для эдитов выставленно что действительно только цифры.

про азы: я же и не спорю... я только учусь... нигде не видел этого, поэтому спросил тут