Поиск файлов

[necky]

var
searchResult : TSearchRec;
f:integer;
begin
memo1.Clear;
if (FindFirst('*.html' , faAnyFile, searchResult) = 0 ) or (FindFirst('*.htm' , faAnyFile, searchResult) = 0 )then
begin
repeat
memo1.Lines.Add (String (''+searchResult.Name));
until FindNext(searchResult) <> 0;
FindClose(searchResult);
f:=Form1.Memo1.Lines.Count;
edit1.text:=IntToStr (f);


Как осуществить поиск по всем каталогам находящимся в папке с ехе-шкой? Но лучше всего было бы, еслиб подсказали как выбрать каталог и осуществить подобный поиск.

[vitalik007]

зачем повторять тему???

var
s1,s2 : TSearchRec;
f:integer;
begin
memo1.Clear;
if (findfirst(extractfileDir(applicati on.exename),faD irectory,s1) = 0) then
repeat
if (FindFirst(s1.name+'/*.html' , faAnyFile, s2) = 0 ) or (FindFirst(s1.name+'/*.htm' , faAnyFile, s2) = 0 )then
repeat
memo1.Lines.Add (s2.Name);
until FindNext(s2) <> 0;
FindClose(searchResult);
until findnext(s1)<>0
findclose(s1);
f:=Form1.Memo1.Lines.Count;
edit1.text:=IntToStr (f);


P.S я не компилировал будет наверное много ошибок.
у меня комп только завтра будет исли надо исходник выложу завтра

[Банзай]

моно так:

procedure find(path:string);
var sr:TSearchRec;
begin
if FindFirst(path + '\*.*', faAnyFile, sr ) = 0 then
repeat
if ( sr.Name <> '.' ) and ( sr.Name <> '..' ) then
if ( sr.Attr and faDirectory ) = faDirectory then
find(path+'\'+sr.name)
else
if (ExtractFileExt(sr.Name)='html')or( ExtractFileExt(sr.Name)='htm')then
form1.listbox1.Items.Add(path+'\'+s r.name);
until FindNext( sr ) <> 0;
FindClose(sr);
end;

а там как получица можно directorylistbox на форму поставить в ней выбирать папку и вызывать подобную процедуру с аргументом выбранной папкой

[Alar]

necky, всё что вам надо здесь.

http://www.programmersclub.ru/lab

[necky]

Помогите!!! Прошу описать каждую строчку кода процедуры Find. И очень большая просьба куда, как её вставлять .. Alar - я скачал исходник, и не могу разобратся

[vitalik007]

ты бы начал хотя-бы с простого

[Alar]

necky, давай выкладывай код, где не понятно.

[necky]

1. Не понятно что делает эта процедура.

procedure find(path:string);
var sr:TSearchRec;
begin
if FindFirst(path + '\*.*', faAnyFile, sr ) = 0 then
repeat
if ( sr.Name <> '.' ) and ( sr.Name <> '..' ) then
if ( sr.Attr and faDirectory ) = faDirectory then
find(path+'\'+sr.name)
else
if (ExtractFileExt(sr.Name)='html')or( ExtractFileExt( sr.Name)='htm')then
form1.listbox1.Items.Add(path+'\'+s r.name);
until FindNext( sr ) <> 0;
FindClose(sr);
end;

[Alar]

http://www.programmersclub.ru/labmultimedta

Mp3-плеер

Программа для воспроизведения mp3 файлов. Для запуска программы поместите в каталог с Delphi исходником mp3 файлы и только после этого запускайте проект.
Скачать (15 кб)

[necky]

Наконец то дошло!!! Огромное спаибо!!! А как сделать, чтоб искал и в подкаталогах?