Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Вниз

Поиск файлов в какалоге. 


VEG   (2001-10-14 10:38) [0]

Мне нужно произвести поиск файлов с расширением *.jpg, *.jpeg, *.bmp в определенном наталоге, включая и его подкаталоги, и загрузить его в массив.



Anatoly Podgoretsky   (2001-10-14 14:01) [1]

Функции FindFirst/Next/Close
Процедура SetLength()
Если посмотришь архивы за последнюю неделю, то найдешь и примеры, как правильные, так и неправильные.



Dimka Maslov   (2001-10-15 10:26) [2]


uses Masks;

procedure FindFiles(InitialDir: string; List: TStrings; Mask: array of string);
var
SearchRec: TSearchRec;
FindResult: Integer;
i: Integer;
begin
InitialDir:=IncludeTrailingBackslash(InitialDir);
FindResult:=FindFirst(InitialDir+"*.*", faAnyFile, SearchRec);
try
while FindResult<>0 do with SearchRec do begin
if Attr and faDirectory <> 0 then begin
if (Name<>".") and (Name<>"..") then
FindFiles(InitialDir+Name, List, Mask);
end else begin
for i:=Low(Mask) to High(Mask) do
if MatchesMask(Name, Mask[i]) then List.Add(InitialDir+Name);
end;
FindResult:=FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.BeginUpdate;
try
FindFiles("c:\", Memo1.Lines, ["*.bmp", "*.jpg", "*.jpeg"]);
finally
Memo1.Lines.EndUpdate;
end;
end;




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.029 c
1-90261           Delphimun             2002-01-07 11:55  2002.01.28  
Как найти далее при помощи pos?


1-90246           Dim2511               2002-01-09 12:52  2002.01.28  
Как пронумеровать строки DBGrid


1-90324           DStealth              2002-01-10 19:01  2002.01.28  
Как импортировать из DLL класс?


14-90360          ddd-numerical TV      2001-11-29 07:06  2002.01.28  
ACTIVE LIST


1-90320           Lcoder                2002-01-10 05:31  2002.01.28  
InstallShield -> системные ini-файлы