Moin!
Delphi-Quellcode:
assign(f,name);
{$I-}
reset(f);
{$I+}
fehlercode:=ioresult;
If ( Fehlercode <> 0 ) Then
Begin
writeln(fehlercode);
ReadLn;
End;
If ( fehlercode = 0 ) Then
close(f);
end;
Ansonsten, wenn man es unter Delphi nutzt, kann man dem Nutzer dank Windows auch eine Klartextmeldung präsentieren:
Delphi-Quellcode:
assign(f,name);
{$I-}
reset(f);
{$I+}
fehlercode:=ioresult;
If ( Fehlercode <> 0 ) Then
ShowMessage( SysErrorMessage( Fehlercode ) );
If ( fehlercode = 0 ) Then
close(f);
MfG
Muetze1