Einzelnen Beitrag anzeigen

Monday

Registriert seit: 24. Aug 2012
103 Beiträge
 
FreePascal / Lazarus
 
#6

AW: Button soll sich merken, wie oft er gedrückt wurde

  Alt 13. Mär 2016, 14:33
Zwei Sachen:

1. If Abfragen sollten so aussehen: if .. then BEGIN ... END; Begin/End fehlt bei dir

2. Random + i gehört eher hier hin

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:longint;
begin
randomize;
i := random(3)+1;
[...]
Frage1(i)=> was ist "i"? ( Das Programm startet auch, aber es steht da 'i' does not seem to be initialized ).



Für die weitere Bearbeitung: Der Block mit den Button1.Tag := 0; was soll mit denen geschehen?
  Mit Zitat antworten Zitat