[Lazarus] Gedrückte Button zählen

Ihr mal eine Frage,die sich etwas mit programmieren auskennen: ich soll für jemanden ein Programm schreiben, indem es darum in dem es darum geht einen Fragebogen "auszufüllen" (mit Button). Dann sollen die gedrückten Butten (z. b. Ja ; Nein) gezählt werden ( z. B. Es wurde ... Mal Ja gedrückt) und da liegt das Problem, wie kriege ich es hin, das die gedrückten Button zu zählen und das dann anzuzeigen.(Da ich noch ein Anfänger bin benutzt bitte keine Fachbegriffe oder erklärt es sehr genau)

Answer 1

[martin7812]

Bei Lazarus ist ja eine Prozedur mit jedem Button verbunden. Durch einen Doppelklick auf den Button wird die Prozedur erstellt.

Deine Prozedur muss dann eine nicht-lokale Variable hochzählen, in eine Zeichenkette umwandeln und in den Text z.B. eines Labels schreiben.

Beispiel:

Im Form "TForm1" gibt es einen Button "Button1" und ein Label "Label1". Beim Klicken auf Button1 wird eine Zahl um eins hochgezählt und im Label Label1 angezeigt:

var counter: integer;

procedure TForm1.Button1Click(Sender: TObject);
var
    s: string;
begin
    counter:=counter+1;
    str(counter,s);
    Label1.Caption:=s;
end;