Hallo,
Hm so funktionierte es nicht:
Delphi-Quellcode:
{$I+}
if IOResult <> 0 then
begin
ShowMessage(SysErrorMessage(GetLastError));
{MessageDlg('Fehler beim Zugriff auf die Datei', mtWarning, [mbOk], 0); }
{ exit;
halt }
end
else
while not EOF(Datei)do
Wo und wie genau muss das im Code stehen?
Ist IOResult Integer?
Schönen Gruß