Ziffernblock

[DeddyH]

Nehmen wir mal an, Du hast eine Variable vom Typ Integer (ganze Zahl) mit Namen ErsteZahl. Nun wird auf den Button mit der 2 geklickt. Was ist nun zu tun? ErsteZahl muss also mit 10 multipliziert werden und dann die 2 aufaddiert. Danach mit IntToStr umwandeln und im Edit darstellen. Sähe dann so aus:

Delphi-Quellcode:

procedure TFormDings.btn2Click(Sender: TObject);
begin
  ErsteZahl := ErsteZahl * 10 + 2;
  edtErsteZahl.Text := IntToStr(ErsteZahl);
end;

Das Ganze dann analog für die anderen Buttons. Schöner wäre es zwar, wenn man die zu addierende Zahl im Button selbst festlegen würde (Tag-Eigenschaft), dann könnte man den Sender-Parameter auswerten und bräuchte für alle Ziffernbuttons nur eine einzige Methode, aber das erscheint mir im Moment noch zu kompliziert.