(var F : TFileClass);
Die Prozedur öffnet eine vorhandene Datei. Reset öffnet die in F angegebene externe Datei zum lesen und schreiben. Nach dem Öffnen wird der Dateizeiger an den Anfang der Datei gesetzt. Ist die Datei nicht vorhanden wird eine Exception ausgelöst.
try AssignFile(f, 'c:\FileName.txt'); try FileMode := 0; { Datei mit Schreibschutz versehen } Reset(f); ShowMessage('Datei ist vorhanden.'); finally f.Free; end; except ShowMessage('Exception'); end;
var f : TFileClass; begin //... try AssignFile(f, 'c:\FileName.txt'); try FileMode := 0; { Datei mit Schreibschutz versehen } Reset(f); ShowMessage('Datei ist vorhanden.'); finally f.Free; end; except ShowMessage('Exception'); end; //... end;