Einzelnen Beitrag anzeigen

Gerkey

Registriert seit: 18. Okt 2016
Ort: Bad Kreuznach
51 Beiträge
 
Delphi XE Professional
 
#1

noch einmal E/A Fehler 6

  Alt 13. Sep 2021, 11:35
Seit einem Stromausfall wird beim Lesen einer Textdatei der Fehler "E/A Fehler 6" ausgegeben.
Habe sowohl Outbyte Repair laufen lassen als auch PC Repair. Fehler bleibt.
In einem anderen Programm, dass auch ausseiner Textdatei liest, tritt der Fehler nicht auf.
Code nachstehend.
Kann mir jemand helfen ?

Procedure DATEN_LESEN;
var f : TextFile; s : String;
begin
AssignFile(f,'C:\Team\TDaten.txt');
reset(f);
try
while not eof(f) do
begin
readln (s); { hier Fehlermeldung "E/A Fehler 6" }
ShowMessage('s = ' + s)
end;
finally
CloseFile(f);
end;

{ Übernehme ich naachstehenden von Moderator Luckie in Delphi-Praxis empfohlenen
Code, wird in Zeile "Reset(F,1]" gemeckeret : "E2034 zu viele Parameter !"
AssignFile(F, 'C:\Team\TDaten.txt');
{$I-} // interne fehlerbehandlung ausschalten, machen wir selber
{ Reset(F,1);
{$I+}
{ if IOResult = 0 then // unsere Fehlerbehandlung
begin
Seek(F,FileSize(F)-128);
BlockRead(F, Buffer, SizeOf(Buffer));
CloseFile(F);
end
else
ShowMessage(SysErrorMessage(getLastError)); }
end;
  Mit Zitat antworten Zitat