Форум: "Начинающим";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Вниз
Список папок Найти похожие ветки
← →
RainKm (2005-10-25 11:46) [0]Здравсвуйте!
Вопрос такой: как получить список папок в директории?
← →
clickmaker © (2005-10-25 12:16) [1]FindFirstFile
← →
Dereks © (2005-10-25 14:43) [2]Код может выглядеть примерно так:
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 ищет все файлы или папки находящиеся в данной директории.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.038 c
