hallo, ich war im urlaub, deshalb jetzt noch ein frohes neues jahr!!
ich habe jetzt mal ein wenig herumgeproggt(mit ein wenig hilfe) und:
Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
Versuche:=0;
// hier muss jetzt noch das array hinein, welches aus einer datei eingelesen werden soll
nummer:=0;
Label_Frage.Caption:=Frage[nummer].Frage;
end;
procedure TForm1.Button1Click(Sender: TObject);
var antwort: STRING;
begin
Antwort:=edit1.text[1];
IF Antwort = Frage[nummer].Antwort THEN
begin
Versuche := 0;
inc(nummer);
Label_Frage.Caption:=Frage[nummer].Frage;
end ELSE
begin
IF Versuche <1 THEN
begin
showmessage('leider Falsch....');
Versuche := Versuche +1 ; //bzw. INC(Versuche)
end ELSE
IF Versuche >= 1 THEN
BEGIN
showmessage('Game Over.....');
form1.close;
end;
end;
end;
also ich habe jetzt zwei versuche für jede Frage!
Mein Problem besteht darin, das array zu füllen, die Schleife ist ja der button, der die nummer von mal zu mal um eins erhöht! Zu der erhöhung müssen sich die zuweisungen ändern!Also so:
Nummer=1 Frage= hauptstadt von Deutschland?
1)Bonn
2)Berlin
3)Hamburg
4)..
und außerdem muss noch in einem array die richtigen zahlen oder buchstaben geseichert seien, damit die nächste frage erscheint!
Code:
IF Antwort = Frage[nummer].Antwort THEN
Ich weiss nur nicht, wie ich das jetzt alles zusammenpacken muss!
Danke detlef