|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Показ списка папок
Здравствуйте!
У меня проблемка, нужно засунуть в ComboBox.Items список папок из определенной папки на компьютере. Но вот как его получить, я не знаю. Кто может помочь? Желательно по подробнее, с примерами Заранее всем спасибо! |
#2
|
|||
|
|||
FindFirst/FindNext/FindClose;
Код:
procedure GetFolderList(APath : String; var AList : TStringList); var iFound : Integer; F : TSearchRec; begin AList.Clear; APath := IncludeTrailingPathDelimeter(APath); iFound := FindFirst(APath + '*.*',faAnyFile,F); While iFound = 0 Do Begin If (F.Attr And faDirectory) <> 0 Then AList.Add(F.NAme); iFound := FindNext(F); End; FindClose(F); end; |
#3
|
|||
|
|||
Спасибо большое! Сейчас попробую
Ах да, а что в Uses прописывать нужно? Добавил: А нет разобрался. У вас опечатка IncludeTrailingPathDelimiter Последний раз редактировалось BloodFooria, 23.02.2009 в 15:56. |
#4
|
|||
|
|||
Ничего не получается
Постоянно ругается на строчку "AList.Clear;" но стоит ее закомментить, как ругается на "List.Add(F.Name);". Что делать? Мне очень нужно, а ничего не работает |
#5
|
||||
|
||||
Измени заголовок функции:
Код:
procedure GetFolderList(APath : String; AList : TStrings); Код:
GetFolderList('C:\',ComboBox1.Items); Велик и могуч наш Object Pascal ! ICQ: 357-591-887 |
#6
|
|||
|
|||
Спасибо! Получилось!
|