Hallo liebe Experten,
nachdem ich mich immer tiefer in FP begebe (sicher nur an der Oberfläche) bin ich mal wieder am Ende meines Lateins angelangt.
Im Delphi-Workshop auf bergt.de habe ich einen Taschenrechner gefunden, der mir gefällt aber auch Kopfzerbrechen bereitet.
Globale Variablen sind deklariert
Code:
var Zahl: String;
x, Zwischenergebnis: real;
Operation: Integer;
Die Eingabe der Zahlen erfolgt über
Code:
procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
Edit1.text := Edit1.Text + SpeedButton7.Caption;
Zahl := Edit1.Text;
x := StrToFloat(Zahl);
end;
Wie die Berechnung aber funktioniert ist mir schleierhaft
Code:
procedure TForm1.SpeedButton12Click(Sender: TObject); // Button '='
begin
if Operation = 0 then Zwischenergebnis := x;
If Operation = 1 then Zwischenergebnis := Zwischenergebnis + x;
If Operation = 2 Then Zwischenergebnis := Zwischenergebnis - x;
If Operation = 3 Then Zwischenergebnis := Zwischenergebnis * x;
If Operation = 4 Then
begin
if x <> 0
then Zwischenergebnis := Zwischenergebnis / x
else ShowMessage('Bitte keine Division durch Null!');
end;
Operation := 0; // letzte Operation ist keine
x := Zwischenergebnis;
Edit1.Text := FloatToStr(Zwischenergebnis);
end;
procedure TForm1.SpeedButton13Click(Sender: TObject); // Button '+'
begin
if Operation = 0 then Zwischenergebnis := x;
If Operation = 1 then Zwischenergebnis := Zwischenergebnis + x;
If Operation = 2 Then Zwischenergebnis := Zwischenergebnis - x;
If Operation = 3 Then Zwischenergebnis := Zwischenergebnis * x;
If Operation = 4 Then
begin
if x <> 0
then Zwischenergebnis := Zwischenergebnis / x
else ShowMessage('Bitte keine Division durch Null!');
end;
Edit1.Text := '';
x := 0;
Operation := 1; // letzte Operation ist Plus
end;
Woher "weiß" das Programm den Wert für "Operation" und kann ich eventuell darüber hinausgehende Rechenoperationen hinzufügen?
Es wäre sehr nett und vor allen Dingen hilfreich für mich, wenn mir das mal jemand "verkloren" könnte.
vG
Ulrich