помогите с поисковиком

[juiced]

всем доброго времени суток.
У меня такая проблема - нужно написать поисковик (типа google) в Delphi. только он должен искать на наличие заданной фразы или одного из слов не в инете, а среди нескольких (около 1500 шт.) файлов doc, txt, htm. Вот.
Не знаю даже с какой стороны подойти
Помогите, пожалуйста...
Заранее большое спасибо

[Prototype]

Этой функцией найдеш все файлы в дирректории

Procedure ScanDir(StartDir: String; Mask:string; List:TStrings);
Var SearchRec : TSearchRec;
Begin
  IF Mask ='' then Mask:= '*.*';
  IF StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\';
  IF FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
    Begin
     Repeat
        { Чтобы выполнение "не подвисало" }
      Application.ProcessMessages;
      IF (SearchRec.Attr and faDirectory) <> faDirectory then
         List.Add(StartDir + SearchRec.Name) else 
          IF (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
        Begin
          List.Add(StartDir + SearchRec.Name + '\');
            { Рекурсивный вызов }
          ScanDir(StartDir + SearchRec.Name + '\',Mask,List);
        End;
     Until FindNext(SearchRec) <> 0;
     FindClose(SearchRec);
   End; {IF}
end;

Затем по очереди грузи их в TstringList, и ищи строку этой функцией:

function GetSlovoPos(stroka,slovo: string): integer;
var
i,len,lens: integer;
s: string;
begin
result := -1;
len := length(slovo);
lens := length(stroka);
for i := 1 to lens-len do begin
 s := ZCopyText(stroka,i,i+len-1);
 if ZCopyText(stroka,i,i+len-1) = slovo then begin
  result := i+len;
 exit;
end;
end;
end;

Как искать строку

If GetSlovoPos(list.text,'искомое слово') <> -1 then MessageDlg('Строка найдена!',mtInformation,[mbok],0);

Вот только с *.doc надо грузить по другому

[juiced]

спасибо большое... оказывается все так просто было

[juiced]

Прошло время, а проблема опять всплыла... Я так и не могу разобраться - как же все-таки осуществить поиск в вордовских DOC-файлах? может у кого-нибудь есть уже готовая процедура для этого. В DelphiWorld я ничего не нашел

[Stilet]

В DelphiWorld я ничего не нашел

Плохо искал.
Вот тут четко описан поиск в ворде
http://delphiworld.narod.ru/base/msw...t_replace.html