Форум: "Основная";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
ВнизКак правильно сделать поиск файла в каталоге включая подкаталоги Найти похожие ветки
← →
KLOP (2002-09-08 19:07) [0]Пробовал FindFirst - FindNext, но приходится городить огород указывая все подкаталоги. А подкаталоги тройного уровня и по количеству - около сотни...
Существует ли какой нибудь способ более оптимальный ?
Я думаю, что эта задача не такая уж редкая.
Спасибо
← →
VID (2002-09-08 19:15) [1]Компонент для поиска файлов:
http://www.vidsoft.nm.ru/jafilefind.rar
← →
rhf (2002-09-08 19:22) [2]FindFirst - FindNext и рекурсия
← →
KLOP (2002-09-08 19:44) [3]Уважаемый rhf можно-ли растолковать про рекурсию...
Просто я не врубился в вышеуказанном совете.
Спасибо.
← →
Anatoly Podgoretsky (2002-09-08 20:08) [4]Ты бы местный FAQ посмотрел что лм, пока тебя помидорами не забросали
← →
rhf (2002-09-08 22:48) [5]рекурсия - это когда процедура(функция) сама себя вызывает, классический пример этого вычисление факториала...
а Anatoly Podgoretsky прав, смотри в факе
и на http://delphibase.endimus.com/
← →
Begin (2002-09-09 02:46) [6]
Type
ItemList : array of string;
.....
Function GetFolderStructure (FolderToScan : string; IncludeScanFolder : boolean = True; FolderAttribute : Integer = $3F) : ItemList;
var
FolderArray : Itemlist;
//=================================================================================================
Procedure ScanFolder (FirstFolder : string);
var
SR : TSearchRec;
Finded : integer;
begin
FindFirst(FirstFolder+"*",FolderAttribute,SR);
repeat
if ((SR.Attr and $00000010)<>0) and (SR.Name<>".") and (SR.Name<>"..") then
begin
SetLength(FolderArray,Length(FolderArray)+1);
FolderArray[Length(FolderArray)-1]:=FirstFolder+SR.Name;
ScanFolder(FirstFolder+SR.Name+"\");
end;
Finded:=FindNext(SR);
until Finded <> 0;
FindClose(SR);
end;
//================================================================================================
begin
FolderArray:=nil;
GetFolderStructure:=nil;
if IncludeScanFolder then
begin
SetLength(FolderArray,1);
if FolderToScan[Length(FolderToScan)]="\" then FolderArray[0]:=Copy(FolderToScan,1,Length(FolderToScan)-1)
else FolderArray[0]:=FolderToScan;
end;
if FolderToScan[Length(FolderToScan)]<>"\" then FolderToScan:=FolderToScan+"\";
ScanFolder(FolderToScan);
GetFolderStructure:=FolderArray;
FolderArray:=nil;
end;
P.S. Помидорами не кидать !!! Я сам еще не профи .... :) При обнаружении ошибок и/или возникновении советов по оптимизации/ускорению приму с благодарностью.... :)
← →
Begin (2002-09-09 02:49) [7]Выдает полную структуру каталогов и подкаталогов в FolderToScan. А там уже ее можно заточить и для поиска конкретного файла ...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c