Форум: "Система";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
ВнизПоиск файлов в какалоге. Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c