Dateien und Exceptions

[Dannyboy]

Hallo SiouX,
sieh Dir mal in der Delphi-Hilfe TFileStream an oder gleich hier, ist viel einfacher und moderner als das Dateihandling unter Pascal.
Yo, ansonsten machst Du das schon ganz gut, bis auf eine Kleinigkeit:

Delphi-Quellcode:

procedure DateiEinlesen(Pfad: String; var Datensatz: String);
begin
   AssignFile(Datei,Pfad);
   try
       Reset(Datei);
       read(Datei, Datensatz);
      except
       showmessage('fehler beim lesen');
      end;
   // anderer Fehler möglich, ergo anderer TryBlock
   try      
      closeFile(Datei);    
except
      showmessage('Kann Datei nicht öffnen');
   end;
end;

Greetz DANNYBOY