Taschenrechner - Anfängerproblem

[Michael Habbe]

Also, ich denke Du hast da ein paar begins und ends vergessen. Mal die Korrektur hier:

Delphi-Quellcode:

//Selbstdefinierte Procedure  -  Soll sich die Beiden Zahlen merken
procedure TForm1.Zahlenmerken; //Hier müsste irgendwas falsch sein, aber ich weiß nicht was!?
begin
    if Eingabemodus = emZahleneingabe then  {Bei Eingabe merkt sich Zahl1 die Zahl in Edit}
    begin
      Zahl1 := strToInt(Edit1.text);
      Zahl2 := strToInt(Edit1.text);
      Eingabemodus := emLoeschen;  
    end;
end;

edit: Nochmal korrigiert, der Eingabemodus darf natürlich erst geändert werden, wenn die Auswertung vollzogen ist.