Buttonklicks zählen

[Hans33]

Hi
hab eine Frage
wie kann ich die Buttonklicks (anzahl) zählen lassen.
Da ich noch ein anfänger bin hab ich ein zahlenratespiel programmiert.Nun möchte ich die Anzahl der versuche zählen lassen.
Hab mir gedacht das geht vielleicht über das Zählen der Buttonklicks?! Oder wie funktioniert das??
Danke im voraus!!

[blink182]

du kannst ne globale variable deklarieren und die immer um eins erhöhen wenn der button geklickt wurde

Delphi-Quellcode:

var klickzahl:integer;

onbuttonclick
begin
inc(kickzahl);
end;

[Medium]

Und viel schöner und auch nicht komplizierter wäre entweder das im Tag-Property des Buttons zu speichern, oder dafür eine Variable in der Formularklasse anzulegen. Auch und gerade als Anfänger sollte man sich globale Variablen erst garnicht angewöhnen, zumal man dann später wenn man in Richtung C# oder Java schaut auf einmal ein ganz blödes Gesicht machen könnte wenn einem diese schon ans Herz gewachsen sind.

Zudem würde ich dir dringend das Lesen und Durcharbeiten diverser guter Anfängertutorials ans Herz legen. Dabei bekommt man auch ganz gut mit, wie man an solch simple Aufgaben für gewöhnlich Löst. (Da wird nun kein Tut sein dass genau dein Programm erklärt, aber allein schon das Prinzip von Variablen, Klassen, Methoden usw. würde, so man es mal verinnerlicht hat, Fragen wie die in diesem Thread erst gar nicht aufkommen lassen.)

[Noedel]

In der 11 "durften" wir auch mal so n projekt anfertigen

unten hab ichs mal angehangen

[Hans33]

Noedel hab dein projekt mit meinem verglichen und hab das von deinem projekt rausgenommen was ich geebraucht habe Danke

[Noedel]

kein problem

[TurboDennis]

Zitat von Medium:

Und viel schöner und auch nicht komplizierter wäre entweder das im Tag-Property des Buttons zu speichern, oder dafür eine Variable in der Formularklasse anzulegen. Auch und gerade als Anfänger sollte man sich globale Variablen erst garnicht angewöhnen, zumal man dann später wenn man in Richtung C# oder Java schaut auf einmal ein ganz blödes Gesicht machen könnte wenn einem diese schon ans Herz gewachsen sind.)

Dürfte ich als blutiger Anfänger hier mal nachhaken?! Wenn ich die Klicks die man auf einen Button macht mitzählen möchte, wie lass ich diese "Tag-Property" denn im Programmfenster anzeigen?? Komme einfach nicht weiter. Und ja, ich wusel mich seit Wochen durch diese Slebstlernforen und Handbücher

Also ich benötige einen Counter der jeden Klick mitzählt und sofort anzeigt.
Vielen Dank schonmal.

[himitsu]

Kommt drauf an, wo du das anzeigen willst.

Das Anzeigen von .Tag wird genauso gemacht, als wenn man eine extra Variable hätte (var klickzahl: Integer; ).

In eine {Form.}Caption , Label.Caption oder Edit.Text bekommt man das als "String" rein.
.Tag ist natürlich ein Integer.
Also muß nur das .Tag in einen String umgewandelt zu werden (Str-zu-Int) und wird dann der gewünschten Komponente zugewiesen.



PS: Man hätte natürlich auch einfach in der Demo-Anwendung abgucken können.
label3.caption:=...

[Sir Rufo]

Damit hast du zwei Teile:

• Zählen
• Anzeigen

Dann schreibe dir einfach zwei Methoden, die genau diese Teile ausführen

Delphi-Quellcode:

procedure TForm1.IncrementButtonCounter;
begin
  Inc( FButtonCounter );
end;

procedure TForm1.PublishButtonCounter;
begin
  ButtonCounter_Label.Caption := IntToStr( FButtonCounter );
end;

Im OnClick Event rufst du diese beiden Methode dann auf:

Delphi-Quellcode:

procedure TForm1.Button1Click( Sender : TObject );
begin
  IncrementButtonCounter;
  PublishButtonCounter;
end;

Manchmal will man den Zähler auch zurücksetzen, also benötigen wir eine weitere Methode.
Allerdings geht es einem auch auf die Nerven, ständig an das Publish denken zu müssen, ok ändern wir mal eben:

Delphi-Quellcode:

procedure TForm1.IncrementButtonCounter;
begin
  Inc( FButtonCounter );
  PublishButtonCounter;
end;

procedure TForm1.ResetButtonCounter;
begin
  FButtonCounter := 0;
  PublishButtonCounter;
end;

procedure TForm1.PublishButtonCounter;
begin
  ButtonCounter_Label.Caption := IntToStr( FButtonCounter );
end;

procedure TForm1.Button1Click( Sender : TObject );
begin
  IncrementButtonCounter;
end;

procedure TForm1.Button2Click( Sender : TObject );
begin
  ResetButtonCounter;
end;

[TurboDennis]

Daumen hoch! Danke für die ausführlichen Antworten!
Und Du hast Recht, ich hätte es in der Demo nachsehen können Ich hab allerdings kein Delphi sondern arbeite mich in Lazarus ein.