Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
1.951 Beiträge
 
Delphi 7 Professional
 
#4

AW: noch einmal E/A Fehler 6

  Alt 13. Sep 2021, 20:03
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.
  Mit Zitat antworten Zitat