FileName: String;
Свойство FileName возвращает наименование файла, представленного в виде потока.
Sub UserProc;
Var
Dir: IDirectoryInfo;
FileInf: IFileInfo;
FileStr: IFileStream;
s: String;
Begin
Dir:=New DirectoryInfo.Attach("c:\New_Folder");
If Dir.Exists Then
FileInf:=Dir.GetFiles("*").Item(0);
FileStr:=FileInf.Open(FileOpenMode.ReadWrite, FileShare.DenyWrite);
s:=FileStr.FileName;
End If;
Dispose Dir;
Dispose FileInf;
End Sub UserProc;
После выполнения примера в переменной «s» будет содержаться наименование первого файла, содержащегося в директории «c:\New_Folder».
См.также: