Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
Re: Dateien und Exceptions
26. Mär 2004, 12:37
Delphi-Quellcode:
Assignfile(F, Filename);
{$I-}
Reset(F);
if IOResult = 0 then
begin
// was mit Datei machen
end
else
ShowMessage('Fehler beim Öffnen der Datei.');
CloseFile(F);
{$I+}
So geht es ohne Exceptions und try-finally.
Michael Ein Teil meines Codes würde euch verunsichern.
|