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

Цитата:

Сообщение от GhostOnline

Пример на дельфи
var
reg : TRegExpr;
begin
reg := TRegExpr.Create;
reg.Expression := 'aaa';
if reg.Exec('aaa 111 vvv')
then Memo1.Text := reg.Match[0];
reg.Free;
end;

Хм, мы говорим о разных классах?

У меня почему то, всегда в Match[0] пустота...

Вот от меня пример (дельфи)

PHP код:


		
			
var RegExp: TRegExpr;

begin

 RegExp := TRegExpr.Create;

 RegExp.Expression := 'http://(.+?)/';

 RegExp.Exec(url.text);

 url_ := RegExp.Match[1];

 RegExp.Free;

end;