Registriert seit: 24. Aug 2012
103 Beiträge
FreePascal / Lazarus
|
AW: Button soll sich merken, wie oft er gedrückt wurde
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?
|