[iodjin]

Доброй ночи.

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
s:string;
r: TRegExpr;
result:string;
Doc : IHTMLDocument2;
begin
WebBrowser1.Navigate('Страница');
while WebBrowser1.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages;
Doc := WebBrowser1.Document as IHTMLDocument2;
r := TRegExpr.Create;
r.InputString :=Doc.body.innerHTML;
r.Expression :='<h1>(.*?)</h1>';
if r.Exec then
result:= r.Match[1];
label2.caption:=result;
end;

Это обработчик кнопки. Нужно, чтобы в label2 вывелось то, что находится между тегами <h1> и </h1> на странице, которая загрузилась в webbrowser

Ничего не выводит. И так пробовал и сяк..

И еще хотелось попросить дать примеров регулярок для RegExpr. Нашел только на английском, но там мало что понятно.

Спасибо.