Zitat von
saibotq:
Delphi-Quellcode:
// Datei öffnen
read (KSK, vergleich);
while not EOF(KSK) do begin
if vergleich.nr=eingabe.nr then
if vergleich.pin=eingabe.pin then
label5.caption:=(floattostr(vergleich.stand));
read (KSK, vergleich);
end;
Trifft das read auf ein Zeilenende und das ist bereits EOF, dann ist Ende und trotzdem wird ein Zugriff darauf gemacht. Dieser ist aber undefiniert -> Fehler.
P.S.: etwas genauer : am SCHLUß der while Schleife muß EOF stehen, dann landet man nicht mehr in der Schleife !!