Hilfe beim Quizspiel

[GTA-Place]

Die *.ini sieht dann z.B. so aus:

Zitat:

[Frage1]
Frage=Wer bin ich?
Antwort1=Du bist du.
Antwort2=Ich kenn dich net.
Antwort3=GTA-Place
Antwort4=Sag ich net.
Antwort=GTA-Place

[Frage2]
...

Und dann arbeitest du mit TIniFile (dazu in die OH gucken).


Formatieren:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  AssignFile(SummeFragen,'Inhalt.txt');
  Rewrite(SummeFragen);
    Frage.Frage:='Welche von diesen Personen ist kein Info*lehrER*?';
  Frage.Antwort1:= 'bestimmt Herr Habenicht';
  Frage.Antwort2:= 'bestimmt Herr Kühn';
  Frage.Antwort3:= 'bestimmt Herr Krüger';
  Frage.Antwort4:= 'bestimmt Frau Mantwill';
  Frage.richtig:=4;
  Frage.Nummer:=1;
  Reset(SummeFragen);
  Write(Summefragen, Frage);
      Frage.Frage:='Wie geht Case of?';
  Frage.Antwort1:= 'Gar nicht.';
  Frage.Antwort2:= 'keine Ahnung';
  Frage.Antwort3:= 'Drück mich';
  Frage.Antwort4:= '...?*System ERROR*';
  Frage.richtig:=3;
  Frage.Nummer:=2;
  CloseFile (Summefragen);

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  AssignFile(SummeFragen, 'Inhalt.txt');
  Rewrite(SummeFragen);
  
  Frage.Frage:='Welche von diesen Personen ist kein Info*lehrER*?';
  Frage.Antwort1 := 'bestimmt Herr Habenicht';
  Frage.Antwort2 := 'bestimmt Herr Kühn';
  Frage.Antwort3 := 'bestimmt Herr Krüger';
  Frage.Antwort4 := 'bestimmt Frau Mantwill';
  Frage.Richtig := 4;
  Frage.Nummer := 1;

  Reset(SummeFragen);
  Write(Summefragen, Frage);

  Frage.Frage := 'Wie geht Case of?';
  Frage.Antwort1 := 'Gar nicht.';
  Frage.Antwort2 := 'keine Ahnung';
  Frage.Antwort3 := 'Drück mich';
  Frage.Antwort4 := '...?*System ERROR*';
  Frage.Richtig := 3;
  Frage.Nummer := 2;

  CloseFile (Summefragen);