Wenn ich ehrlich bin, bezweifle ich, daß der Taschenrechner richtig funktioniert, - wofür ist "zwischen" gut?
Delphi-Quellcode:
procedure TForm1.Button13Click(Sender: TObject);
begin
try
If zwischen = true then Ausgabe.Text := FloatToStr (Ergebnis + StrToFloat (Ausgabe.Text));
zwischen := true ;
Ergebnis := StrToFloat (Ausgabe.Text) ;
rz := 1 ;
form1.Ausgabe.Text := '' ;
except Showmessage ('Bitte 2 oder mehr Zahlen addieren !');
end;
end;
Delphi-Quellcode:
procedure TForm1.Button13Click(Sender: TObject);
begin
try
If zwischen then
Ausgabe.Text := FloatToStr (Ergebnis + StrToFloat (Ausgabe.Text));
zwischen := true ;
Ergebnis := StrToFloat (Ausgabe.Text) ;
rz := 1 ;
Ausgabe.Text := '' ;
except
Showmessage ('Bitte 2 oder mehr Zahlen addieren !');
end;
end;
Ein wenig formatieren, das nicht auszurottende "if irgendwas=true then" berichtigt, und schon ist das alles etwas lesenswerter.
Gruß
K-H
1. Ganz einfach. Zwischen habe ich eingebaut, damit man mehrere mal hintereinander addieren kann. Sprich Falls (If) zwischen schon bestimmt wurde (= true), dann soll man die alte abgespeicherte Zahl mit der neuen addieren (Ausgabe.Text := FloatToStr (Ergebnis + StrToFloat (Ausgabe.Text))
. Ich konnte es nicht anders formulieren
2.
Mhh, was ist denn an dem "if irgendwas=true then" so schlimm ?
