Sowas soll auch mal vorkommen
Da die Berechnungen recht Flott sind, könntest die diese doch auch wärend der Eingabe gleich mit durchühren lassen, so daß man nicht ständig auf Berechnen klicken muß.
Und bei der Codeformaterung könntest du noch etwas aufpassen
(falls sich das die letzen 4 Jahre nicht schon geändert hat)
Zitat:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
rechner.uebergabe(edit2.Text,edit1.Text);
if not button3.Enabled then
if radiobutton1.checked then rechner.berechneFlaeches(strtofloat(edit4.Text),strtofloat(edit5.text))
else rechner.berechneflaechet(strtofloat(edit4.Text),strtofloat(edit5.text))
else rechner.Taschenrechner;
edit3.Text:=rechner.gibf;
end;
wie es z.B. hier und auch an einigen anderen Stellen verschachtelt ist, wird auf den ersten Blick nicht wirklich klar
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
rechner.uebergabe(edit2.Text,edit1.Text);
if not button3.Enabled then
if radiobutton1.checked then
rechner.berechneFlaeches(strtofloat(edit4.Text),strtofloat(edit5.text))
else rechner.berechneflaechet(strtofloat(edit4.Text),strtofloat(edit5.text))
else rechner.Taschenrechner;
edit3.Text:=rechner.gibf;
end;