Эл. учебник с использованием TTreeview+TWebbrowser, реализация поиска

[Пепел Феникса]

там в тривиев или в вб?
если первое то пост один с поправкой от Аватара.

[kees]

в посте 1 поиск по тривью по заголовкам, мне надо что бы по файлам из тривью пробежать, и первое найденное вывести в ВБ
как-то так

[nursak]

Сообщение от Пепел Феникса

как брать содержимое TWebBrowser я писал не однократно. это и есть HTML

Извиняюсь, но поиск не дал результатов, может поможете?

[kees]

Вот что получилось, но почему то не работает

 procedure TForm1.ToolButton1Click(Sender: TObject);
var
ts: String;
fs: TSearchRec;
f:TextFile;
str:String;
n:Integer;

begin

if FindFirst(ProgramPath+'text\*.htm',faAnyFile,fs) = 0 then
  begin
  repeat
  ts := fs.Name;

       if (ts <> '0') then      // проверяем, есть ли ссылка на файл
     begin
     edit1.Text:=ts;      //здесь как проверка, почему-то выдает 9.htm
    
       
WebBrowser1.Navigate(ProgramPath+'text\*.htm'+ts);
  end;
until FindNext(fs) <> 0;
FindClose(fs);
ShowMessage('Поиск по курсу завершен');
end;

   end;

[kees]

Так, ошибка нашлась, но открывается почему-то опять тот же 9.htm