An dieser Stelle taucht der Fehler auf:
Code:
assignfile(datei,'fragen.db');
reset(datei);
i := 0;
seek(datei,0);
while not eof(datei) do
begin
seek(datei,i);
read(datei,datensatz);
i := i+1;
fragen[i].frage := datensatz.frage;
fragen[i].antwort1 := datensatz.antwort1;
fragen[i].antwort2 := datensatz.antwort2;
fragen[i].antwort3 := datensatz.antwort3;
fragen[i].loesung := datensatz.loesung;
end;
closefile(datei);
radiogroup1.caption := datensatz.frage;
rb1.caption := datensatz.antwort1;
rb2.caption := datensatz.antwort2;
rb3.caption := datensatz.antwort3;