Exists: Boolean;
Свойство Exists возвращает признак существования файла.
Sub Main;
Var
FileSInfo: IFileSystemInfo;
s: String;
Begin
FileSInfo:=New FileInfo.Attach("c:\1.txt");
If FileSInfo.Exists Then
s:="Yes";
Else
s:="No";
End If;
Dispose FileSInfo;
End Sub Main;
После выполнения примера в переменной «s» будет содержаться «Yes» если файл «1.txt» существует в корневом каталоге диска «С».
См.также: