ANTICHAT — форум по информационной безопасности, OSINT и технологиям

s := '<lol>ass</lol>';

p := pos('<lol>', s);
if (p > 0) then
begin
   p1 := pos('</lol>', s);
   if (p1 > 0) and (p1 > p) then data := copy(s, p+5, p1-p-5);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 RegExp:=TRegExpr.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 tag:string;
begin
 regexp.expression:='<lol>(.+?)</lol>';
 tag:='<lol>Hello world</lol>';
 if RegExp.Exec(tag) then showmessage(RegExp.Match[1]);
end;