Pascal:ExceptionHandling bei Dateiarbeit

[Muetze1]

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