Möchte div. Formeln aus gefüllten Editfeldern berechnen.

[HarmonieHH]

Danke marabu, aber ich verstehe das nicht so richtig. Hab gerade erst mit Programmieren angefangen. Ich saß jetzt 6 Stunden dran um auf diese Lösung zu kommen:

Delphi-Quellcode:

procedure TForm1.Balle(Sender: TObject);

begin
 if sender = btnu then
  begin
   if P1 and I1 = true
   then
    begin
     y := (strTofloat(clean(edtP.text)) / strTofloat(clean(edti.text)));
     EdtU.text := FloatToStrF(y,ffnumber,12,2)+' V';
     lf.Caption := 'U = P / I';
     P1 and I1 = false;
    end
   else
    begin
    y := (strTofloat(clean(edtr.text)) * strTofloat(clean(edti.text))) ;
    EdtU.text := FloatToStrF(y,ffnumber,12,2)+' V';
    lf.Caption := 'U = R * I' ;
    end;
 end;
...

procedure TForm1.EdtPChange(Sender: TObject);
begin
P1 := true ;
end;

procedure TForm1.EdtIChange(Sender: TObject);
begin
I1 := true ;
end;

procedure TForm1.EdtRChange(Sender: TObject);
begin
R1 := true   ;
end;

Danke auch sunlight, das werde ich mit einbinden ,dann brauche ich wohl doch keine Tausendseperatoren mehr, hm? Die Zeit