поиск файлов в дериктории по маске. помоему даже с этого форума взято 
| Код |
procedure ScanDir (Path:string;SearchMask:TStrings;ScanSub:boolean);
var
SearchRec:TSearchrec;
a,i:integer;
F : File;
begin
if ScanSub then
begin
if FindFirst(path+'\*.*',faDirectory,SearchRec) = 0 then begin{. found}
FindNext(SearchRec); {.. found}
a:=FindNext(SearchRec);
while a=0 do
begin
if (SearchRec.Attr and faDirectory)>0 then begin
if Form1.Progress.Progress = 100 then Form1.Progress.Progress := 0 ;
Form1.Progress.Progress := Form1.Progress.Progress+1;
ScanDir(Path+'\'+SearchRec.Name,SearchMask,ScanSub);
end;
a:=FindNext(SearchRec);
application.ProcessMessages;
end;{while}
FindClose(SearchRec);
end;
end;{if}
for i:=0 to SearchMask.Count-1 do
begin
a:=FindFirst(Path+'\*.'+SearchMask[i],faAnyFile,SearchRec);
while a=0 do
begin
{operation on file}
midifile(Path+'\'+SearchRec.name);
a:=FindNext(SearchRec);
// application.ProcessMessages;
end;{while}
FindClose(SearchRec);
end;{for}
end; {ScanDir}
|
|