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
