Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
ВнизСканирование каталога... Найти похожие ветки
← →
Fog (2002-10-16 20:34) [0]...или как оно там называется.. Вообщем мне нужно знать список файлов находящехся в директории .
← →
LongIsland (2002-10-16 20:41) [1]http://delphi.mastak.ru/articles/panov/index.html
← →
Anatoly P (2002-10-16 20:45) [2]FindFirst();
FindNext();
← →
fdghsdfgsdfg (2002-10-16 21:03) [3]lb_dir/cb_dir
← →
Геннадий (2002-10-16 21:17) [4]var
SF : TSearchRec;
HA : Word;
FileList : array of String; //здесь список файлов
begin
If FindFirst("C:\*.*", faAnyFile - faDirectory - faVolumeID, SF) <> 0
then begin
ShowMessage("Нет файлов в указанной папке");
Exit;
end;
Repeat
HA:= Length(FileList);
Inc(HA);
SetLength(FileList, HA);
FileList[HA-1]:= SF.Name;
Until FindNext(SF)<>0;
FindClose(SF);
end;
Что-то в этом духе...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.031 c