1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TTaschenrechner.hatKnopfPlusGeklickt(Sender: TObject);
var lHilf : GanzeZahl; //Hilfsvariabeln
begin
 lHilf := hatTextfeldDisplay.InhaltAlsGanzeZahl;
 hatTextfeldDisplay.setzeInhalt (0);
  if Sender=hatKnopfGleich
   then begin
    hatTextfeldDisplay.setzeInhalt (lHilf+hatTextfeldDisplay.InhaltAlsGanzeZahl );
   end;
end;					

1:
2:
3:
4:

Procedure wird aufgerufen
Inhalt des Displays wird in die Hilfsvariable "lHilf" gesichert
Displayinhalt wird auf "0" gesetzt
Procedure wird verlassen -> die Hilfsvariable "lHilf" wird aus dem Arbeitsspeicher gelöscht					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TTaschenrechner.hatKnopfPlusGeklickt(Sender: TObject);
begin
 zHilfszahl := hatTextfeldDisplay.InhaltAlsGanzeZahl;
 hatTextfeldDisplay.setzeInhalt (0);
 zStatus := 1;
end;


procedure TTaschenrechner.hatKnopfGleichGeklickt(Sender: TObject);
begin
 if zStatus = 1
 then begin
  hatTextfeldDisplay.setzeInhalt (zHilfszahl+hatTextfeldDisplay.inhaltalsganzezahl);
 end;
end;