Thema: Delphi Dateien und Exceptions

Einzelnen Beitrag anzeigen

SiouX

Registriert seit: 15. Mai 2003
Ort: Hamburg
14 Beiträge
 
Delphi 6 Personal
 
#1

Dateien und Exceptions

  Alt 26. Mär 2004, 12:33
Hallo,

trotz einiger Tutorials, komme ich mit Dateien & Exceptions nicht klar. z.B. ich möchte eine Datei einlesen. Wie schachtele ich da try.. except & try.. finally ?

Delphi-Quellcode:
procedure DateiEinlesen(Pfad: String; var Datensatz: String);
begin
   AssignFile(Datei,Pfad);
   try
      try
       Reset(Datei);
       read(Datei, Datensatz);
      except
       showmessage('fehler beim lesen');
      end;
      closeFile(Datei); //sollte ich das nicht lieber mit try..finally behandeln? wo? wie kann ich das ganze sinnvoll schachteln?
   except
      showmessage('Kann Datei nicht öffnen');
   end;
end;
im Programm
Delphi-Quellcode:
DateiEinlesen(Dateipfad, Inhalt);
DoSomething(Inhalt); //(*1)
zu (*1) Wenn in DateiEinlesen Fehler aufgetreten sind, dann hat Inhalt evtl. keinen vernünftigen 'Inhalt'? Sollte ich daher DateiEinlesen als Funktion deklarieren mit einem booleschen Rückgabewert oder wird sowas auch durch exceptions verhindert?

Danke
  Mit Zitat antworten Zitat