Anfänger-Frage: Aufsummieren mehrerer Button-Klicks

[Christian Seehase]

Moin Würfel,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Solange Du mit ganzen Zahlen arbeitest, könntest Du das Ganze sogar in einer einzigen OnClick-Routine abarbeiten, indem Du den Wert, um den erhöht werden soll, in der Eigenschaft Tag des Buttons unterbringst.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Sender is TButton then begin
    inc(meineZahl,(Sender as TButton).Tag);
    Edit1.Text := IntToStr(meineZahl);
  end;
end;

Diese kannst Du dann allen betroffenen Button als OnClick-Routine zuweisen.

Den Wert für Tag kannst Du im Objekt-Inspektor, oder zur Laufzeit im OnCreate des Formulares setzen.