Taschenrechner delphi

[Beat]

Hallo

Du brauchst genau 3 Variablen
Einmal für das zwischenergebnis, nennen wir es 'zwischen' und dem Typ Boolean.
Damit fragen wir ab, ob das zwischen ergebnis vorhanden ist.

Dann brauchen wir eine variable für das Rechenzeichen, nennen wir sie 'rz' mit dem Typ Integer.

Die dritte Variable ist das abgespeicherte Zwischenergebnis des 1. Edit Feldes. Bedeutet, du schreibst eine Zahl in das Editfeld, drückst auf den Button '+' . In dem Button wird dann unter anderem, die Zahl die in dem Edit Feld stand in die Variable gespeichert. Nennen wir sie 'Ergebnis' , vom typ real.

So nun will ich dir den einfach Quelltext des + Buttons geben. Die Schleifen sind mit berücksichtigt, heißt du kannst mehrere Male hintereinader eingeben.

Delphi-Quellcode:

procedure TForm1.Button13Click(Sender: TObject);
begin
try
     If zwischen = true then Ausgabe.Text := FloatToStr (Ergebnis + StrToFloat (Ausgabe.Text)); // Das ist die Schleife! //
        zwischen := true ;    // Die Variable zwischen wird auf true 'wahr' gesetzt, damit die Schleife funktioniert //
        Ergebnis := StrToFloat (Ausgabe.Text) ;   // Das was im Edit feld stand, wird gespeichert //
        rz := 1 ;         // Das ist für das Ausrechnen wichtig, da arbeiteen wir dann mit einer IF Schleife //
        form1.Ausgabe.Text := '' ;  // Das Feld wird für die nächste Eingabe bereicht gemacht //
except Showmessage ('Bitte 2 oder mehr Zahlen addieren  !'); // Für etwaige Fehlermeldungen //

end;
end;

So damit das oben funktioniert solltest du in der Form Create auch noch was schreiebn ( doppelklick auf das Formular)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Ausgabe.text := '' ;
zwischen := false;
rz := 0 ;
end;
// Keine Erklräung notwendig //
end;

Ich hoffe das ist erstmal ein guter Anfang für dich. Im - mal und geteilt Button musst du rz natürlich andere Werte zuweisen !