Обработка исключительной ситуации

[artemavd]

procedure TForm1.Button1Click(Sender: ToObject);
var
  a1:real;
  b1:real;
  c1:real;
  d1:real;
  k1:real;
  f1:real;
begin
  a1:=StrToFloat(Edit1.Text);
  b1:=StrToFloat(Edit2.Text);
  c1:=StrToFloat(Edit3.Text);
  d1:=StrToFloat(Edit4.Text);
  k1:=(a1+b1+c1+d1);
    f1:=(2*a1+3*b1+4*c1+5*d1)/k1;
      label1.Caption:=' '+FloatToStr(Round(f1)) ;

Этот коод работает хорошо, но возможны случаи, когда a1,b1,c1,d1 одновременно равны нулю, т.е. k1=0. Как мне написать применительно к этому коду прроцедуру обработки исключительной ситуации, т.е. деления на ноль? Потому что k1 может быть равным нулю. Мне надо, чтобы если k1=0, то остальные формулы в процедуре этой кнопки работали и считали, а та формула код которой приведен выше и в которой k1=0, ничего не выводила в ответ и не выводила ошибки о том, что деление на ноль. Подскажите пожалуйста, а то я сто раз пробовал написать обработку через try...except...end, но у меня не получалось((

[Arigato]

Тут не нужно использовать исключения. Пиши так:

procedure TForm1.Button1Click(Sender: ToObject);
var
a1:real;
b1:real;
c1:real;
d1:real;
k1:real;
f1:real;
begin
a1:=StrToFloat(Edit1.Text);
b1:=StrToFloat(Edit2.Text);
c1:=StrToFloat(Edit3.Text);
d1:=StrToFloat(Edit4.Text);
k1:=(a1+b1+c1+d1);
if k1 <> 0 then f1:=(2*a1+3*b1+4*c1+5*d1)/k1
else ShowMessage ('Деление на ноль!');
label1.Caption:=' '+FloatToStr(Round(f1)) ;

[artemavd]

Спасибо конечно, Arigato за совет, но у меня одна кнопка должна производить расчет по четырем формулам! Причем последние три (кроме первой) имеет делитель в знаменателе, а значит он может быть равен нулю, если вводных данных нет. Как тогда быть?

[Arigato]

Проверять делить на равенство нулю.

[SERG1980]

procedure TForm1.Button1Click(Sender: ToObject);
var
a1:real;
b1:real;
c1:real;
d1:real;
k1:real;
f1:real;
begin
try
a1:=StrToFloat(Edit1.Text);
b1:=StrToFloat(Edit2.Text);
c1:=StrToFloat(Edit3.Text);
d1:=StrToFloat(Edit4.Text);
k1:=(a1+b1+c1+d1);
f1:=(2*a1+3*b1+4*c1+5*d1)/k1;
label1.Caption:=' '+FloatToStr(Round(f1)) ;
except
  on EZeroDivide do showmessage('Попытка деления на ноль')
end;

[artemavd]

Всем спасибо!) Попробую!)

[beegl]

и вот нашол не плохую статью по исключениям:
http://pblog.ru/?p=89

[Stilet]

хм. Всетки я бы заменил функу StrToFloat на TryStrToFloat или StrToFloatDef дабы предусмотреть еще и обработку случая нецифрового или неверного формата ввода в Эдиты.

[artemavd]

А как вообще можно отключить проверку деления на ноль? Кажется какую то директиву надо поменять. Чтобы было так: ноль в знаменателе? ну и не надо ответ ничего выводить.

[SERG1980]

Ну например в обработке

Except
ля ля ля
end;

ничего не пишете т.е

Except
end;