Поиск файлов

[Romms]

Здраствуйте! По сути задача не сложная(поиск файлов в деректории и вложених папках) НО! Проблема в скорости! Вот мой пример:

procedure Tmain.FILEfind(cat:string; type_f:string);
var sea:TSearchRec;
res:integer;
begin
res:=FindFirst(cat+'\*.*',faAnyFile,sea);
res:=findNext(sea);
While res=0 do
begin
if (Sea.Attr=faDirectory) and ((Sea.Name='.')or(Sea.Name='..')) then
begin
Res:=FindNext(sea);
Continue;
end;

if (Sea.Attr=faDirectory) then
begin
FILEfind(cat+Sea.Name+'\',type_f);
Res:=FindNext(Sea);
Continue;
end;
 main.ListBox2.Items.Add(cat+'\'+Sea.Name);
 Res:=FindNext(Sea);
end;
FindClose(Sea);
end;

Помогите модернизировать?!

[Greblin]

1. Не Sea.Attr = faDirecory, а (Sea.Attr and faDirectory)<>0
2. Конкретно такой способ уже особо не оптимизировать, быстрые поисковики работают с помощью индексации файлов

[Romms]

Возможно Вы знаете другой(более быстрый) способ, пажалуста, линк в студию!

[Greblin]

Я ж Вам сказал: индексация файлов. Т.е. при первом запуске программы все файлы организуются в такую структуру, поиск в которой происходит достаточно быстро.
Ну вот, например, погуглил (кстати, тоже индексация): http://www.codenet.ru/webmast/search/idx/ и http://cit.vvsu.ru/portal/cifr/1/lek08.htm