wer kann helfen und ist aus Hamburg?

[Gilmohr]

hi, ok werd ich in zukunft machen

die frage dazu: woran liegt es dass wenn radioButton1 aktiv ist die felhlermeldung ""kein gültiger gleitkommawert kommt?

hab doch den array V2[a] wieder mit strToFloat als dezimalzahl umgewandelt....

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

const
  K = 1273.239545; // ~= 4 *1000/ PI

begin

  a := 0 ;
    repeat

    StringGrid2.RowCount := a+1;
    if RadioButton2.Checked then begin         //wenn Strömungsgeschw gewählt berechne mit Formel Strömungsgeschw
    v2[a] :=  FloatToStr((Volumenstrom * K) / ( StrToInt(d[a])*StrToInt(d[a])));
    StringGrid2.Cells[0,a] := v2[a]  ;
    end;

    if RadioButton1.Checked then begin         //wenn Druckverlust gewählt berechne mit Formel Druckverlust
    v2[a] := FloatToStr((Volumenstrom * K) / ( StrToInt(d[a])*StrToInt(d[a])));
    p2[a] :=  FloatToStr((StrToInt(p1[a])) * StrToFloat(v2[a]) * StrToFloat(v2[a]) / ( StrToFloat(v1[a])/100 * StrToFloat(v1[a])/100 ));
    StringGrid2.Cells[1,a] := p2[a]  ;
    end;

    memo1.Lines.add(' - j= ' +intToStr(j)+' - a= '+intToStr(a));
    inc (a);
    until
    a = j

end;

was hab ich da übersehen bzw. falsch gemacht?