Thema: Delphi Dateien und Exceptions

Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Dateien und Exceptions

  Alt 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.
  Mit Zitat antworten Zitat