Anfänger-Frage: Aufsummieren mehrerer Button-Klicks

[Der Würfel]

Hi,
ich habe folgendes Problem: Ich habe mehrere Buttons, die Geldbeträgen entsprechen sollen (hier vereinfacht nur 1€ und 2€) und ein Edit-Feld, das die Summe aller Klicks auf diese Buttons anzeigt. Also:
Ich klicke auf Button1 (=1€) und Edit1 zeigt 1 an. Ich klicke nochmal und Edit1 zeigt 2 an. Ich klicke auf Button2 (=2€) und Edit1 zeigt 4 an usw., beliebig kombinierbar.
Wäre toll, wenn mir jemand einen Tipp geben könnte. Ich habe schon ein paar kleinere Sachen mit Delphi gemacht, hier stehe ich aber irgendwie auf dem Schlauch
Vielen Dank schonmal!

Der Würfel

[malo]

Du musst eine Variable deklarieren, die das speichert.

Delphi-Quellcode:

var
  Form1: TForm1;
  Betrag: integer;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
  Betrag := Betrag +1;
  Edit1.Text := IntToStr(Betrag);
end;

So machst du das auch mit den anderen Buttons.


edit: Tags repariert

[p0w3r5tr34m3r]

Hi und herzlich Willkommen in der DP,

zu deiner Frage,

Delphi-Quellcode:

var
  meineZahl: integer; // dies ist eine Globale Variable

procedure TForm1.FormCreate(Sender: TObject);
begin
  meineZahl := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  inc(meineZahl, 1); // wert von meineZahl wird um 1 erhöht
  Edit1.Text := IntToStr(meineZahl);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  inc(meineZahl, 2); // wert von meineZahl wird um 2 erhöht
  Edit1.Text := IntToStr(meineZahl);
end;

guck dir doch mal auf Der Delphi-Treff die Tutorials an. Da stehen einige Anfänger Tutorials.


Mit freundlichen Grüßen
Florian

[Der Würfel]

Wow, das ging schnell. Jetzt geht's. Vielen Dank (an beide)!

So ähnlich hatte ich das auch schon, hatte aber die Variable innerhalb der Procedure immer noch mal definiert.

Der Würfel

[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.