ich würde es so machen...
ich weise alle datensätze, unabhängig von der lektion, in ein array des types TVokabeln (array of TVokabeln) und frage dann nach und nach ab..
Delphi-Quellcode:
var
vokabel: array of TVokabel;
f: file of TVokabel;
idx: integer;
begin
idx := 1;
setlength(vokabel, idx);
assignfile(f, './vokabeln.dat');
reset(f);
while not eof(f) do begin
seek(f, idx);
read(f, vokabel[idx]);
inc(idx);
end;
end;
der aufruf sieht dann ungefähr so aus
if vokabel.lektion = aktuelleLektion then ...
der code ist ungetestet von daher garantiere ich für gar nichts
als denkanstoß sollte es reichen
Mit freundlichen Grüßen,
powerstreamer