Hallo Wespi!
Dann nimm doch Exceptions.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var F: file;
begin
try
System.AssignFile(F, '?invalid?');
System.Reset(F);
except
On EInOutError do ShowMessage('Fehlernummer: ' + IntToStr(IoError));
//Ich glaub, es war EInOutError bei Dateifehler
end;
end;
Schau Dir also mal die Exceptions an.
Viel Erfolg wünscht
schöni