[OK :=] EXISTS(Filename);
EXISTS
Die Funktion EXISTS prüft, ob die angegebene Datei (Filename) existiert.
Rückgabewert
Im Erfolgsfall (Datei ist vorhanden) liefert dieser Befehl TRUE, ansonsten (Datei ist nicht vorhanden) FALSE.
Beispiel
Filename:='C:\Test.txt'; IF EXISTS(Filename) THEN MESSAGE('Datei ''%1'' ist vorhanden!',Filename) ELSE ERROR('Datei ''%1'' existiert nicht!',Filename);
Das o. g. Beispiel prüft in der zweiten Zeile über die Funktion EXISTS ob die Datei existiert. Ist dies der Fall, wird die folgende Hinweismeldung ausgegeben:
Wenn die Datei nicht vorhanden sein sollte, wird mit der letzen letzten Zeile und der Funktion ERROR eine entsprechende Fehlermeldung ausgegeben: