Ein großer Fehler ist in der Berechnug drin ,wie kann man die edits und label ansprechen das nicht immer das selber Ergebnis raus kommt.
Sonst muß man alles über var eingeben.
Zb.
Code:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var a, b, c, d, e, f, ab, cd, ef: Real;
begin
a := StrToFloat(Edit1.text);
b := StrToFloat(Edit21.text);
c := StrToFloat(Edit2.text);
d := StrToFloat(Edit22.text);
e := StrToFloat(Edit3.text);
f := StrToFloat(Edit23.text);
ab:= a / b;
cd:= c / d;
ef:= e / f;
Label21.Caption := FloatToStr(ab);
Label22.Caption := FloatToStr(cd);
Label23.Caption := FloatToStr(ef);
...............usw.
..........
end;
end.
Gibt es eine Möglichkeit das übersichtlicher zu machen?
mfg
Black