Delphi-Quellcode:
procedure TForm1.NeuesSpiel1Click(Sender: TObject);
var Fragenummer:integer;
Level:integer;
begin
Randomize;
Memo1.Lines.LoadFromFile('H:\Delphi\Klasse 12\Abschlussprojekt/'+'Fragen/'+'Fragen.txt');
Fragenummer:= random(Memo1.Lines.Count);
Frage.Caption:= Memo1.Lines[0];
AntwortA.Caption:= Memo1.Lines[1];
AntwortB.Caption:= Memo1.Lines[2];
AntwortC.Caption:= Memo1.Lines[3];
AntwortD.Caption:= Memo1.Lines[4];
end;
Hier mal mein Fortschritt (ich weiss, noch nicht besonders viel, aber mühsam ernährt sich das Eichhörnchen
)
Hier ist das Problem, wie wähl ich andere Fragen aus.
Meine txt. Datei ist folgendermaßen angeordnet:
Code:
Das Wandern ist des Müllers ... ?
Frust
Lust
Freude
Spaß
Eine Pauschalreise kann man ... ?
buchen
pappeln
eichen
weiden
Also wie krieg ich es hin, dass bei der Fragenauswahl nicht immer nur die erste Frage, sondern auch mal die zweite dran kommt?
2. Frage: Wie realisier ich den Spielablauf am besten?
Ich hab mir gedacht, dies lässt sich doch ganz gut mit if .. then .. else machen.
Zunächst eine Wederholschleife (wiederhole bis verloren oder level 15)
Dann die Routine, die die Frage holt (siehe oben)
Dann müsste ja rein theoretisch eine Antwort vom Spieler kommen ?!
dann wieder if Antwort=richtige Antwort then..
Wie überprüf ich ob die Antwort die richtige ist?
und dann noch if richtig then Level +1.