Item(Index: Integer): IDirectoryInfo;
Index — индекс элемента коллекции.
Свойство Item возвращает описание элемента коллекции.
Sub UserProc;
Var
DirInfo: IDirectoryInfo;
DirList: IDirectoryInfoList;
s: String;
Begin
DirInfo:=New DirectoryInfo.Attach("c:\New_folder");
If DirInfo.Exists Then
DirList:=DirInfo.GetDirectories("*");
s:=DirList.Item(0).Name;
End If;
Dispose DirInfo;
End Sub UserProc;
После выполнения примера в переменной «s» будет содержаться наименование первого подкаталога директории «c:\New_folder».
См.также: