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);