Fehler abfangen aber wie ?

[ipworks]

Vergleiche jenes mit deiner Routine

Delphi-Quellcode:

procedure TForm1.START1Click(Sender: TObject);
var
AOHM1,AWATT1,U1,I1,ohmges,wattges,uges,iges:Extended;
Watttest1,Ohmtest1,Utest1,Itest1:Extended;
begin
  AOHM1:=StrToFloatDef(EOHM1.Text,0); //falls Fehler stellt StrtoFloatDef automatisch das Ergebnis 0
  AWATT1:=StrToFloatDef(EWATT1.Text,0);
  U1:=StrToFloatDef(EVOLT1.Text,0);
  I1:=StrToFloatDef(EAMPER1,0);

  if AOHM1<>0 then begin
    if AWATT1<>0 then begin
      uges:=sqrt(AOHM1*AWATT1);
      iges:=sqrt(AOHM1/AWATT1);
      end;
    if U1<>0 then begin
      wattges:=(U1*U1)/AOHM1;
      iges:=sqrt(AOHM1/AWATT1);
      end;
    if I1<>0 then begin
      wattges:=(I1*I1)*AOHM1;
      uges:=sqrt(AOHM1*AWATT1);
      end;
  end;

  //Ausgabe 
  EVOLT1.Text:=floattostr(uges);
  EAMPER1.Text:=floattostr(iges);
end;

cu
Peter