Delphi. Нужно помочь ввести одну формулу.

[privatnebank]

есть такой фрагмент

Код: [Выделить]

procedure TfrmMain.CalcAdvData;
var
  Frn,Ftn,Frv,Ftv:extended;
  Sn,Sv:extended;
  kriteriu:extended;
  wn,wp:extended;
  Ft1:extended;
  Fr1:Extended;
  Dr,Dt,Lambda:extended;
begin
  try
    psiN:=ArcCos(R0/(RotorParams.Rro{/2.5}));
    psiV:=ArcCos(R0/(RotorParams.Rri{/2.5}));
    edtPsiN.Text:=FloatToStrF(psiN*180/pi,ffFixed,7,3);
    edtPsiV.Text:=FloatToStrF(psiV*180/pi,ffFixed,7,3);

    Ctb:=C*sin(psiV);
    Ctn:=C*sin(psiN);
    Crb:=C*cos(psiV);
    Crn:=C*cos(psiN);

    Sn:=((RotorParams.Rro{/2.5})*En)/1000/1000;
    Sv:=((RotorParams.Rri{/2.5})*Ev)/1000/1000;
    edtSn.Text:=FloatToStrF(Sn*1000,ffFixed,7,4);
    edtSv.Text:=FloatToStrF(Sv*1000,ffFixed,7,4);
    Frn:=Crn*Sqr(Vn)*pi*(RotorParams.Rro{/2.5}/1000)*Sn;
    Ftn:=Ctn*Sqr(Vn)*pi*(RotorParams.Rro{/2.5}/1000)*Sn;
    Frv:=Crb*Sqr(Vv)*pi*(RotorParams.Rri{/2.5}/1000)*Sv;
    Ftv:=Ctb*Sqr(Vv)*pi*(RotorParams.Rri{/2.5}/1000)*Sv;
    nc:=f/P;
    wn:=2*pi*nc;
    wp:=(2*pi*nr)/60;
    C:=Round( (( (wn-wp)/Ro )*Hp{/1000}));
    speC.Value:=c;
    edtNc.Text:=FloatToStrF((60*Wn)/(2*pi),ffFixed,16,0);
    Ft1:=Ctn*Sqr(Vn)*(En/1000)*pi*sqr((RotorParams.Rro/1000))-Ctb*sqr(Vv)*(Ev/1000)*pi*sqr((RotorParams.Rri/1000));
    Fr1:=Crn*Sqr(Vn)*(En/1000)*pi*sqr((RotorParams.Rro/1000))-Crb*sqr(Vv)*(Ev/1000)*pi*sqr((RotorParams.Rri/1000));
   edtFt.Text:=FloatToStrF(Ft1,ffFixed,16,3);
   edtFr.Text:=FloatToStrF(Fr1,ffFixed,16,3);
 
   try
      Dr:=(Fr1/(e/1000));
      Dt:=(Ft1/(e/1000));
      a:=(Dr/(m/1000));
      b:=Dt/(m/1000);

   except
      a:=0;
      b:=0;

   end;
    edtAlpha.Text:=FloatToStrF(a,ffFixed,16,3);
    edtBeta.Text:=FloatToStrF(b,ffFixed,16,3);
    pnlError.Visible:=false;
  except
    pnlError.Visible:=true;
  end;
 
  end;


Помогите сюда дописать следующую формулу:
kriteriu:=(Dt*sqrt(m))/(LaMBdA*sqrt(Dr));
edtKrit.Text:=FloatToStrF(kriteriu,ffFixed,16,3);
У меня при попітке дописать віскакивает постоянно ошибка:
[Warning] uMain.pas(805): Variable 'Dt' might not have been initialized
[Warning] uMain.pas(805): Variable 'Dr' might not have been initialized

[InfStudent]

Это не ошибка а предупреждение, а том, что ваши переменные имеют никакого начального значения. После begin в обработчик впишите
Dt:=0;
Dr:=0;

[privatnebank]

После добавления:
...
begin
  try
  Dr:=0;
  Dt:=0;
....
....
....
try
      Dr:=(Fr1/(e/1000));
      Dt:=(Ft1/(e/1000));
      a:=(Dr/(m/1000));
      b:=Dt/(m/1000);
      kriteriu:=(Dt*sqrt(m))/(LaMBdA*sqrt(Dr));
   except
      a:=0;
      b:=0;
      kriteriu:=0;
   end;
    edtAlpha.Text:=FloatToStrF(a,ffFixed,16,3);
    edtBeta.Text:=FloatToStrF(b,ffFixed,16,3);
    edit2.Text:=FloatToStrF(kriteriu,ffFixed,16,3);
    pnlError.Visible:=false;
  except
    pnlError.Visible:=true;
  end;

В поля формы edtAlpha.Text, edtBeta.Text, edit2.Text выводятся одни нули. Даже в тех случаях, когда деления на ноль нет

[privatnebank]

хммм.... Если в формулу добавлять по одной переменной и после компилить, то все номрально и без предупреждений.