Форум АНТИЧАТ - Показать сообщение отдельно

Тема: Регулярное выражение

Показать сообщение отдельно

14.11.2009, 17:03

eLWAux

Постоянный

Регистрация: 15.06.2008

Сообщений: 941

Провел на форуме:
5111568

Репутация: 2399

Отправить сообщение для eLWAux с помощью ICQ

PHP код:


		
			
procedure TForm1.btn2Click(Sender: TObject);

 var Reg1: TRegExpr;

 begin

  Reg1 := TRegExpr.Create;

  Reg1.Expression:= '<title>(.+?)<.title>';

  if Reg1.Exec(mmo1.Text) then

     ShowMessage(Reg1.Match[1])

  else

     ShowMessage('Не найдено');

 end;