mehrere Datensätze in Datei schreiben und wieder Auslesen

[saibotq]

Erstmal vielen Dank für die Hilfe, trotzdem hat es irgendwie so noch nicht geklappt. Mir ist aber zum Glück eine andere Idee gekommen, ohne das ******* EOF:

Delphi-Quellcode:

seek(KSK,0);

for i:=0 to filesize(KSK)-1 do
begin
    read (KSK, vergleich);
    if vergleich.nr=eingabe.nr then
    if vergleich.pin=eingabe.pin then
    label5.caption:=(floattostr(vergleich.stand));
end;

also PROBLEM GELÖST