Pascal:ExceptionHandling bei Dateiarbeit

[Lordy]

Hi,

stehe vor folgendem Problem:
Ich muss in Pascal eine Datei öffnen die durch den User bestimmt wird.
Dabei kann es ja sein das die Datei bereits geöffnet ist, nicht vorhanden oder so.
Gibt es eine Möglichkeit direkt auf die unterschiedlichen Exceptions zu reagieren?


Habe mir folgendes Überlegt:


assign(f,name);

Delphi-Quellcode:

try
reset(f);  
EXCEPT
                                                 
   writeln('Es ist ein Fehler aufgetreten');
//   Wie kann ich hier überprüfen welcher Fehler aufgetreten ist und verhindern
//   das sich mein Programm bei falsches Eingabe sofort beendet?
finally;
close(f);

Danke im Vorraus

P.S: Gibts irgendwo eine Sprachreferenz für Pascal wo ich solche Dinge wie unterschiedliche Exceptions und so mal nachlesen kann?

[alcaeus]

Hallo Lordy,

Fehler bei Dateioperationen musst du mit Hilfe der Schalter {$I-} und {$I+} sowie der Funktion IOResult abfragen. Guck dir einfach die Hilfe zu IOResult an, dort gibts auch ein Beispiel.

Greetz
alcaeus

[Lordy]

Das hatte ich früher auch mal so:

Delphi-Quellcode:

assign(f,name);
{$I-}

reset(f);
fehlercode:=ioresult;
writeln(fehlercode);
close(f);
{$I+}
end;

Das Problem ist, das Programm wird sofort beendet, sobald ein Fehler auftritt, man sieht also nicht, welcher
Fehler aufgetreten ist.

Hat da jemand eine Idee?

[barf00s]

dann machst du dir noch ein "ReadLn;" nach dem WriteLn(fehlercode); rein :)

[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