[Ogurcofff]

В процессе "написания" программы возникает целая куча вопросов. И мне как начинающему любителю не решить их своими силами.
Так вот моя простенькая программка производит некоторые вычисления, но иногда возникают исключительные ситуации, такие как деление на 0 или значение из пустого edit-а попадает в знаменатель дроби, что тоже, наверное расценивается как деление на 0.
Какие предлагают решения:

Код:

try
....
except
...
end;

Здесь предлагается в эту конструкцию заключить обработчик ошибок, и в случае исключительной ситуации вывести сообщение, что мол "Произошло деление на ноль. Проверьте правильность ввода данных".
Я же "планирую" чтобы все расчеты происходили при событии OnChange в Edit. И мне эти сообщения не нужны.
Вопрос, возможно ли обрабатывать эти исключения без вывода всяких сообщений, чтобы пустой Edit не выдавал ошибку is not a valid floating point value. И в случае деления на ноль просто не происходили никакие вычисления и все.
Надеюсь понятно расписал.
Задавайте наводящие вопросы

[Yurk@]

Код:

TryStrToInt(Edit1.Text, <переменная куда вывести результат>);

[Ildar-tsr]

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

И в случае деления на ноль просто не происходили никакие вычисления и все.

Код:

if (Edit1.Text = '') or (Edit1.Text = '0') then
  Abort;

[NumLock]

Код:

try
....
except
end;

[Ogurcofff]

Сообщение от Yurk@

Код:

TryStrToInt(Edit1.Text, <переменная куда вывести результат>);

Отвечает мне компилятор [Pascal Error] Unit3.pas(31): E2035 Not enough actual parameters

Сообщение от Ildar-tsr

Код:

if (Edit1.Text = '') or (Edit1.Text = '0') then
  Abort;

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

Код:

try
....
except
end;

Без изменений, также происходит деление на ноль и выскакивает ошибка
Может у кого есть отлаженный код, рабочий, так сказать для анализа.

[NumLock]

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

также происходит деление на ноль и выскакивает ошибка

не ври! запусти http://zalil.ru/33150371 и убедись!

Stop on Delphi Exception отключать надо

[Ogurcofff]

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

не ври! запусти http://zalil.ru/33150371 и убедись!

Stop on Delphi Exception отключать надо

Не врал, честное слово.
А теперь понял ошибку и исправился!.

Вот так должно быть?

Код:

procedure TRIP.Edit1Change(Sender: TObject);
     begin
     try
     a:=StrToFloat(edit1.Text);
     b:=strtofloat(edit2.Text);
     c:=StrToFloat(edit3.Text);
     d:=strtofloat(edit4.Text);
     e:=strtofloat(edit5.Text);
     F:=b+((e-a)/(c-a)*(d-b));
     edit6.Text:=floattostr(f);
   except
   end;
  end;

[Ildar-tsr]

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

Не врал, честное слово.
А теперь понял ошибку и исправился!.

Вот так должно быть?

Да все верно.
Для окончательного понимания:
Программа пытается выполнить, то что находиться в блок try. Если возникает любая ошибка, то программа незамедлительно переходит в блок except. То есть если возникнет ошибка во время дебага программы (запуска с делфи), то вы увидите сообщение об ошибке, нажмете F9 и программа пойдет выполняться дальше. Если же вы запустите exe'шник, то никаких предупреждение на экран не вылезет.

[Ogurcofff]

Сообщение от Ildar-tsr

Да все верно.
Для окончательного понимания:
Программа пытается выполнить, то что находиться в блок try. Если возникает любая ошибка, то программа незамедлительно переходит в блок except. То есть если возникнет ошибка во время дебага программы (запуска с делфи), то вы увидите сообщение об ошибке, нажмете F9 и программа пойдет выполняться дальше. Если же вы запустите exe'шник, то никаких предупреждение на экран не вылезет.

Вот как раз об этом я тоже хотел спросить. Почему так получается. Теперь все предельно ясно.
Спасибо за терпение и понимание!!!

[NumLock]

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

Почему так получается

потому что:

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

Stop on Delphi Exception отключать надо

в IDE.

[angvelem]

Если версия Дельфи не позволяет яно указать, что Edit может воспринимато только цифры, то имеется обходной путь:

Код:

procedure TForm1FormCreate(Sender: TObject);
var
  I : Integer;
begin
  // Устанавливаем для всех Edit-ов только цифры,
  //   в старших версиях дельфи имеется в свойствах контрола.
  for I := 0 to ComponentCount - 1 do
    if (Components[i] is TEdit) then
      with (Components[i] as TEdit) do
        SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) or ES_NUMBER);
end;

и тогда в коде не потребуется делать дополнительные проверки.

[nixel]

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

Если версия Дельфи не позволяет яно указать, что Edit может воспринимато только цифры, то имеется обходной путь:

Код:

procedure TForm1FormCreate(Sender: TObject);
var
  I : Integer;
begin
  // Устанавливаем для всех Edit-ов только цифры,
  //   в старших версиях дельфи имеется в свойствах контрола.
  for I := 0 to ComponentCount - 1 do
    if (Components[i] is TEdit) then
      with (Components[i] as TEdit) do
        SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) or ES_NUMBER);
end;

и тогда в коде не потребуется делать дополнительные проверки.

и как это должно помочь обойти проблему деления на ноль и пустой строки?

[angvelem]

Пустой строки уже быть не может , про 0 я и не думал.
Всего лишь показал, как штатными средствами создать Edit, понимающий только цифры.

[Aristarh Dark]

Вот реально как дети - чес-слово...
Думать мозгом не пробовали (это к ТС)?
У меня тож есть пользовательские интерфейсы (полная жо..), но суть не в этом. Я умею "гасить" любые действия пользователя, однако это не главное. Ну "вставили" в поле ввода (Edit) что-то отличное от цифр, и что... все умерло??? Можно рассмотреть поле, получить ошибку, сказать юзверу и... ну там по желанию (я ставлю значение по умолчанию).

[Pyro]

или updown прицепить, у него min, max, position есть