Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.28;
Скачать: CL | DM;

Вниз

Поиск файлов в какалоге.   Найти похожие ветки 

 
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;



Страницы: 1 вся ветка

Текущий архив: 2002.01.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-90256
SuperMama
2002-01-08 14:14
2002.01.28
Как в D5 организовать цифры ПРОПИСЬЮ ?


1-90294
Vasilii
2002-01-08 10:19
2002.01.28
Вызов консольного приложения


14-90349
SKX
2001-11-30 13:00
2002.01.28
Мож кто подскажет???


1-90309
Hair_Fly
2002-01-11 11:07
2002.01.28
Как при компиляции задавать имя exe-файла ?


7-90402
Ketmar
2001-10-14 14:10
2002.01.28
как заменить своим или отрубить окошко менеджера задач (ctrl+alt+del) в Win98?