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