Beurteilung meines Quelltextes

[Union]

Für OOP Tutorials bemühe doch einfach mal die Suchfunktion des Forums (Eingabe "OOP and Tutorial").
Tag ist ein integer Wert, den Du frei verwenden kannst. Z.B. Tastencodes oder Pointer auf Objekte.

[Stefan92]

OK, Tutorial hab ich gefunden.
Noch eine Frage zu dem Tag:
Was müsste ich denn machen, um über den Tag die case-Abfrage zu umgehen? Ich bräuchte doch trotzdem noch Abfragen oder nicht?
Sorry wenn ich falsch liege, aber ich bin halt noch ein Newbie.

Gruß

Stefan

[morp2]

Hier mal ein Tipp meinerseits:
Leite dir eine eigene Klasse von Button ab un füg ihr eine Eigenschaft "Zahl" vom Typ String zu. Dieser Eigenschaft gibts du dann je nach Button die Werte '0' bis '9' (Sollte direkt im Designer gehen). Dann leitest du ALLE Buttonklicks auf eine Methode um (Also im Designer, beim Event Click, für jeden Modifizierten Button, diese Methode angeben):

Delphi-Quellcode:

procedure TForm1.MyButtonClick(Sender: TObject);
var
  MyButton: TMyButton;
begin
  MyButton := TMyButton(Sender);
  ZahlKlick(MyButton.Zahl);
end;