Oracle+Delphi { Вычисляемые поля } деление не работает, если в столбцов ест 0

[xxbesoxx]

Здравствуйте ребята. ест простой таблица

create table test2
(
 tid number(10),
 tname nvarchar2(40),
 chislo1 number(8,2),
 chislo2 number(8,2)
)

Бывает что поля chislo1 и chislo1 может содержит число 0 ,таком виде

chislo1
----------
30
50
0
10
0
40


chislo2
----------------------------
15
20
0
3
0
12

мне надо сделать вычисляемые поля из Delphi в таком логике chislo1 / chislo2 * 100 делаю так

procedure TForm1.OraQuery1CalcFields(DataSet: TDataSet);
begin
        OraQuery1Vichislenie.DisplayFormat := '#####.##';
    OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat /
    OraQuery1.FieldByName('CHISLO2').AsInteger *100  ;
end;

Выводить ошибок . потому у меня в chislo1 и chislo2 ест 0
Вопрос : Как обойти в таком ситуация ? как реализовать такой логика, До пустим , если chislo1 / chislo2 = 0 тогда он написал неправильный ответ 1 , или может у кого то хороший вариант. ??? Ребята помогите пожалуйста, это логика надо реализовать именно из Delphi . Без SQL . Задача такой .
Что делать ребята ? Пожалуйста помогите решат это задачу

[xxbesoxx]

Такой логика хочу внутри этого кода

 procedure TForm1.OraQuery1CalcFields(DataSet: TDataSet);
begin
    OraQuery1Vichislenie.DisplayFormat := '#####.##';
    if OraQuery1Vichislenie.Value = 0 then begin
      0+1
    end;
    OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat /
    OraQuery1.FieldByName('CHISLO2').AsInteger *100  ;
end;

Но так не работает

[Yurk@]

как-то так

procedure TForm1.OraQuery1CalcFields(DataSet: TDataSet);
begin
  OraQuery1Vichislenie.DisplayFormat := '#####.##';
  if OraQuery1.FieldByName('CHISLO2').AsFloat = 0 then 
    OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat / 0.01 * 100
  else 
    OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat / OraQuery1.FieldByName('CHISLO2').AsFloat * 100;
end;

[Аватар]

Для отображения подойдет? Math в uses

if OraQuery1.FieldByName('CHISLO2').AsInteger = 0 
  then OraQuery1Vichislenie.AsFloat:= Infinity
  else OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat / OraQuery1.FieldByName('CHISLO2').AsInteger *100

[xxbesoxx]

Сообщение от Аватар

Для отображения подойдет? Math в uses

if OraQuery1.FieldByName('CHISLO2').AsInteger = 0 
  then OraQuery1Vichislenie.AsFloat:= Infinity
  else OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat / OraQuery1.FieldByName('CHISLO2').AsInteger *100

Если так, Тоже самое ошибка

procedure TForm1.OraQuery1CalcFields(DataSet: TDataSet);
 // uses   Math,
begin
   if OraQuery1.FieldByName('CHISLO2').AsInteger = 0
   then  OraQuery1Vichislenie.AsFloat:= Infinity
else
    OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat /
    OraQuery1.FieldByName('CHISLO2').AsInteger *100  ;
end;

в поля CHISLO1 здесь тоже 0 ели я добавлю вот так

procedure TForm1.OraQuery1CalcFields(DataSet: TDataSet);
 // uses   Math,
begin
   if OraQuery1.FieldByName('CHISLO2').AsInteger = 0
   then  OraQuery1Vichislenie.AsFloat:= Infinity ;
   if OraQuery1.FieldByName('CHISLO1').AsInteger = 0
   then  OraQuery1Vichislenie.AsFloat:= Infinity
else
    OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat /
    OraQuery1.FieldByName('CHISLO2').AsInteger *100  ;
end;

Тоже не работает . Что делать ?

Yurk@ смотрю ваши пример

[xxbesoxx]

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

как-то так

procedure TForm1.OraQuery1CalcFields(DataSet: TDataSet);
begin
  OraQuery1Vichislenie.DisplayFormat := '#####.##';
  if OraQuery1.FieldByName('CHISLO2').AsFloat = 0 then 
    OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat / 0.01 * 100
  else 
    OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat / OraQuery1.FieldByName('CHISLO2').AsFloat * 100;
end;

Yurk@ Огромное спасибо . Вот это да СУПЕР .... профессиональный подход. спасибо друг работает

procedure TForm1.OraQuery1CalcFields(DataSet: TDataSet);
begin
if OraQuery1.FieldByName('CHISLO2').AsFloat = 0 then
    OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat / 0.01 * 100
else
    OraQuery1Vichislenie.AsFloat := OraQuery1.FieldByName('CHISLO1').AsFloat /
    OraQuery1.FieldByName('CHISLO2').AsInteger *100  ;
end;