Buttonklicks zählen

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

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

[Perlsau]

Kurze Frage: Was sind "Selbstlernforen"? Und sollte es die geben, was wären dann "Nicht-Selbstlernforen"? Solche, bei denen man jeden gewünschten Code frei Haus erhält? Copy'n'Paste-Foren?

[TurboDennis]

Hmm. Ich weiß nicht worauf Du anspielst. Ich meinte jedenfalls Plattformen wo Anfängern das Programmieren mit FreePascal nahegelegt wird. Anleitung fürs erste HalloWelt Programm usw.
Es kann sein, dass ich Profis mit meinen albernen Fragen nerve. Ich bin jedenfalls froh dass sich Leute bereit erklären zu helfen. Nur so komme ich weiter. In meiner Stadt habe ich leider keinen VHS Kurs zu dem Thema gefunden.

[Perlsau]

Ich spiele auf die Frage an, die sich mir beim Lesen des unbekannten Wortes "Selbstlernforen" stellte: Kann man denn irgendwie anders als selbst lernen? Mir fiel dabei sowas wie "Selbstesser" und "Selbstatmer" ein, man kann ja nur selber essen und selber atmen. Oder anders ausgedrückt: Lernen ist ein Vorgang, den man nur selbst herbei- und ausführen kann. Ein Forum kann Hinweise und Unterstützung bieten, Lernen muß man aber immer noch selber. Es gibt in den Delphiforen durchaus auch Zeitgenossen, die ganz offensichtlich nicht lernen und das auch nicht beabsichtigen, wenn man ihnen Unterstützung bietet. Daher ist die Frage nicht allzu abwegig.

Davon abgesehen mußt du dich nicht dafür rechtfertigen, hier im Forum eine Frage gestellt zu haben. Und einen VHS-Kurs in Delphi-Programmierung hab ich auch nicht genossen, sondern alle Fähigkeiten autodidaktisch erworben - das nennt man übrigens Lernen