| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Список папок [D5, WinXP]
RainKm © (2005-10-25 11:46:00)Здравсвуйте!
Вопрос такой: как получить список папок в директории?
Dereks (2005-10-25 14:43:00) [1]Код может выглядеть примерно так:
var
str: array[0..255] of string;
fileattrs,i: integer;
dir : string; //директория где ищутся папки
sr: TSearchRec;
countRec: integer;//кол.-во. найденных файлов
begin
fileattrs:=faanyfile;
if FindFirst(Dir+'*.*', FileAttrs, sr) = 0 then
begin
repeat //цикл длится до тех пор пока находятся файлы
str[i]:=sr.Name;
inc(i);
until (FindNext(sr) <> 0) or (i=255);
FindClose(sr);
end;
CountRec:=i;//узнаём кол.-во. найденных файлов.
Теперь в массиве str находятся имена найденных папок или файлов.
Примечание: функция FindFirst ищет все файлы или папки находящиеся в данной директории.
clickmaker (2005-10-25 12:16:00) [2]FindFirstFile
| |
