Wer Wird Millionär? Abschlussprojekt Klasse 12

[schulprogrammierer]

Vielen Dank schonmal für die vielen guten Tipps

Wie mach ich denn das mit der INI-Datei?
Wie erstelle ich sie bzw. wie binde ich sie in den Quelltext ein??

[BUG]

Zitat von schulprogrammierer:

Wie mach ich denn das mit der INI-Datei?
Wie erstelle ich sie bzw. wie binde ich sie in den Quelltext ein??

Hier gibt es ein kurzes Tutorial in der DP. Darin sind auch noch eins im Delphitreff verlinkt.

[schulprogrammierer]

Die Tutorials sind ja gut und schön.
Aber wie müsst ich das in meinem Projekt realisieren?

Erstmal alle Fragen (für jede Schwierigkeitsstufe) in eine INI-Datei packen.
Müssen die Antworten gleich dazu oder in eine extra Datei?

Wie bind ich dann die INI-Dateien in meinen Quelltext ein?

1. Frage holen, wie Sir Rufo bereits in seinem Quelltext geschrieben hat.
Wie mach ich das? LoadFromFile?
2. Antwort vom Spieler
3. Antwort überprüfen (Wie mach ich das mit den Antworten am besten?)

[Puke]

Moin, moin
also ich persöhnlich finde, dass Ini-Dateien für Fragen zu groß dimensioniert sind. Einfacher wär es wenn du die Fragen in txt-Dateien packst und sie daraus in eine Memo lädst und dann zufällig welche aussuchst. Am besten machst du für jede Stufe eine txt-Datei, so brauchst du keine komplizierten Aufrufe:

Meine Vorstellung:

Delphi-Quellcode:

var
level: Integer;
fragenummer: Inetger;
begin
Randomize;
memo.lines.loadfromfile(extractfilepath(paramstr(0))+'dawodiedateiliegen'+inttostr(level)+'.txt');
fragenummer:= random(memo.lines.count);
fragelabel.caption:= memo.lines[fragenummer*5];
panela.caption:= memo.lines[fragenummer*5+1];
panelb.caption:= memo.lines[fragenummer*5+2];
panelc.caption:= memo.lines[fragenummer*5+3];
paneld.caption:= memo.lines[fragenummer*5+4];
end;

Die Txt wäre dann so angeordnet:

Code:

Frage
AntwortA
AntwortB
AntwortC
AntwortD
Richtig
Frage
AntwortA
AntwortB
AntwortC
AntwortD
Richtig
Frage
AntwortA
AntwortB
AntwortC
AntwortD
Richtig
...

Dies ist einfach und glaubwürdig.

Gruß Puke

[DeddyH]

Und was ist daran jetzt einfacher als T(Mem)IniFile?

[Puke]

Wenn er nie Inis hatte?
Warum sollte er es auf einaml können?

[DeddyH]

Weil er die Tutorials durchgearbeitet und hoffentlich ein wenig geübt hat? Mal ein Minibeispiel: angenommen, eine solche Inidatei für eine Schwierigkeitsstufe sähe so aus

Code:

[1]
Frage=Wieviel ist 2*2?
Richtig=4
Falsch1=42
Falsch2=Rembrandt
Falsch3=Hä?
[2]
Frage=Wer führte Regie beim Film "Die Vögel"?
Richtig=Alfred Hitchcock
Falsch1=Woody Allen
Falsch2=Stephen Spielberg
Falsch3=George Lucas
[3]
Frage=3 Dinge braucht der Mann: Feuer, Pfeife, ...
Richtig=Stanwell
Falsch1=Rauchmelder
Falsch2=Feuerlöscher
Falsch3=Dudelsack

Dann kann man daraus ganz einfach eine zufällig gewählte Frage samt Antworten herausholen (der Code ist ganz bewusst nicht optimal, etwas Arbeit soll ja noch bleiben):

Delphi-Quellcode:

procedure TForm1.ReadQuestion(const IniName: string);
var
  Ini: TMemIniFile;
  Sections: TStringlist;
  Question: string;
begin
  Memo1.Lines.Clear;
  Ini := TMemIniFile.Create(IniName);
  try
    Sections := TStringlist.Create;
    try
      Ini.ReadSections(Sections);
      Question := Sections[Random(Sections.Count)];
      Label1.Caption := Ini.ReadString(Question, 'Frage', 'Keine Frage vorhanden, nanu?');
      Memo1.Lines.Add(Ini.ReadString(Question, 'Richtig', ''));
      Memo1.Lines.Add(Ini.ReadString(Question, 'Falsch1', ''));
      Memo1.Lines.Add(Ini.ReadString(Question, 'Falsch2', ''));
      Memo1.Lines.Add(Ini.ReadString(Question, 'Falsch3', ''));
    finally
      Sections.Free;
    end;
  finally
    Ini.Free;
  end;
end;

Danach sollten die Frage in Label1 und alle Antworten in Memo1 stehen. Man muss sich natürlich noch merken, welche die richtige ist, sie zufällig durcheinandermischen etc., aber mir ging es jetzt nur um das Auslesen. Evtl. auftretende Fehler sollten natürlich auch noch behandelt werden.