проблема с Edit

[-Wanderer-]

Привет народ, нужна помощь. Пишу программу таймер. В программе есть два поля в которые соответсвенно вводятся минуты и секунды. Если в поле ничего не введено, то программа считает что введен ноль.

Проблема такова - если ничего не ввести, то возникает ошибка EConvertError "" is not a valid value

Та часть кода, в которой может быть ошибка

procedure TForm1.Button1Click(Sender: TObject);
begin
  case status of
   0:                                  
    begin
      Edit1.Visible := false;
      Edit2.Visible := false;
      Label2.Visible := false;       
      Label3.Visible := false;

      if Edit1.Text = ''           
        then min := 0
      else
        min := StrToInt(Edit1.Text);
      if Edit2.Text = ''
        then sec := 0
      else
        sec := StrToInt(Edit2.Text);

      if (min <= 60) and (min >= 0)
        and (sec <= 60) and (sec >= 0) then begin
          min := StrToInt(Edit1.Text);
          sec := StrToInt(Edit2.Text);
      end
      else
        begin
          MessageDlg('Ââîä íåâåðíûõ äàííûõ',mtError,[mbOk],0);
          FormCreate(self);
          Exit;
        end;

      Button1.Caption := 'Ñòîï';

      Timer1.Enabled := true;
      status := 1;
    end;
    1:                                  
      begin
        Timer1.Enabled := false;
        Button1.Caption := 'Çàíîâî';
        status := 2;
      end;
    2: FormCreate(self);                
  end;
end;

[Hacker19_90]

а у вас нет проверки на пустой Edit!
есть на пробел

 if Edit1.Text = ''

а ну постой Edit нет!

[-Wanderer-]

Я пишу именно на пустой ( if Edit1.Text = '' - между кавычками ничего нет)

[myg]

Сообщение от -Wanderer-

Я пишу именно на пустой ( if Edit1.Text = '' - между кавычками ничего нет)

Тупой вопрос, а Text ранее был инициализирован на пустое значение, а то может в нем что-то есть, а он у вас невидим.

Да, кстати в этом месте


if (min <= 60) and (min >= 0)
and (sec <= 60) and (sec >= 0) then begin
min := StrToInt(Edit1.Text);
sec := StrToInt(Edit2.Text);
end

вы преобразуете в целое возможно пустой Edit

[-Wanderer-]

он изначально пустой...

[myg]

Сообщение от -Wanderer-

он изначально пустой...

преобразование пустого текста ( '' ) дает такую ошибку.
Надо проверять на непустоту

[-Wanderer-]

Все, понял, спасибо огромное!