1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type
  TFragen = record
    Rubrik: String;
    frage: TStrings;
    antwort1: TStrings;
    antwort2: TStrings;
    antwort3: TStrings;
    punkte: integer;
    FrageGestellt: boolean;
  end;

var
  DatenForm: TDatenForm;
  Daten : array of TFragen;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Procedure TDatenForm.speichern;

var
  i : integer;
  Datei : file of TFragen;

begin
  assignfile(Datei,'dat\'+ThemaBox.Items[ThemaBox.itemindex]+InttoStr(RubrikBox.itemindex)+'.dat');
  rewrite(Datei);
  for i:= low(daten) to high(daten) do
    begin
      write(Datei,Daten[i]);
    end;
  closefile(Datei);
  ShowMessage('Daten gespeichert');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

 TFrage  = record
              Rubrik  : String;
              frage   : String;
              antwort1: String;
              antwort2: String;
              antwort3: String;
              punkte  : integer;
              FrageGestellt: boolean;
            end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

//Wegschreiben
Oeffne Datei;
Erzeuge Stringliste strl;
Fuer alle Dateinsaetze i :
  Stringliste Leeren;
  Alle Komponenten von Frage[i] als String in die Liste einfuegen{Strl.Add(Rubrik);Strl.Add(frrage);...}
  writeln(DAtei,strl.Commatext);

Datei Schliessen
Stringliste Freigeben);
..........
//Einlesen
Oeffne Datei;
Erzeuge Stringliste strl;
i := 0;
Solange Datei noch nicht am Ende (EOF(Datei)):
  Stringliste Leeren;
  Erhoehe die Anzahl der Fragen um 1{setlenght(Frage,High(Frage)+1);}
  readln(Datei,strl.Commatext);
  Alle Komponenten von Strl in Frage[i] uebertragen (Frage[i].Rubrik := strl[0];Frage[i].frage := strl[1]...}
  erhoehe i um 1

Datei Schliessen
Stringliste Freigeben);