noch einmal E/A Fehler 6

[Delphi.Narium]

Versuch es mal (hilfsweise) so:

Delphi-Quellcode:

Procedure DATEN_LESEN;
var 
  f : TextFile; 
  s : String;
  i : Integer;
begin
  i := 0;
  AssignFile(f,'C:\Team\TDaten.txt');
  reset(f);
  try
    try
      while not eof(f) do
      begin
        i := i + 1;
        readln (s); { hier Fehlermeldung "E/A Fehler 6" }
      end;
    except
      on e : Exception do begin  
        ShowMessage(Format('Fehler bei Zeile %d der Textdatei: %s',[i,e.Message]));
      end;
    end;
  finally
    CloseFile(f);
  end;
end;

Damit könntest Du (mit etwas Glück) erfahren, in welcher Zeile der Fehler auftritt.