[z668]

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

Зачем составлять то?

Уже нашел:

Код:

procedure TForm1.sButton1Click(Sender: TObject);
    var Match: TPerlRegEx;
begin

   Match := TPerlRegEx.Create;
   Match.RegEx := '<div class="model"><a href="(.*)">';
   Match.Subject := TStringList.Text;

   sLinks:= TStringList.Create;

   if Match.Match then

   repeat
    Application.ProcessMessages;
    TStringList.Add('http://' + Match.Groups[1]);
   until not Match.MatchAgain;

   Match.Free;

end;