Форум: "Система";
Поиск по всему сайту: 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.025 c
1-90317           Val                   2002-01-11 17:28  2002.01.28  
видимость в секции private


1-90316           apav                  2002-01-11 15:17  2002.01.28  
UTF-8


4-90422           mms                   2001-11-28 17:16  2002.01.28  
Global Hook вопрос


3-90188           Andrey_ask            2001-12-21 19:50  2002.01.28  
Потеря записей


4-90428           Alex870               2001-11-26 21:27  2002.01.28  
Подскажите пожалуйста!