Taschenrechner ein Editfeld

[Beat]

Zitat von p80286:

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 ?