Извлечь ссылки

[Mihail1987]

Доброго времени!
Имеется код:

function GetLinks(const S: String): String;
var
ts:string;
begin
with TRegExpr.Create do
try
Expression:='^(?im).*?<li>(.*?)">.*$';
if Exec(S)
then Result:=Match[1]
else Result:='No title found';
ts:=Replace(result,'',true);
finally
delete(ts,1,15);
form1.Memo1.Lines.Add('http://site.com/?'+ts);
Free;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
s:string;
begin
s:=http.Get('http://site.com/?cat=other');
GetLinks(s);
end;
end.

Хотелось бы чтобы с данной страницы извлекались ВСЕ ссылки по данному выражению. Как правильно сделать цикл в функции GetLinks?
Буду признателен за все ответы!
Спасибо!


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Puhovoi]

function exall (const input, expr : string; count : integer; post : tstringlist) : boolean;
var
  r : TRegExpr;
begin
  result := true;
  r := TRegExpr.create;
  r.modifieri := true;
  try
    r.expression := expr;
    if r.Exec (input) then repeat post.add (r.match [count]); until not r.execnext;
  except end;
  r.free;
end;

В post пишутся все найденные значения.

[Mihail1987]

простите, я просто в кодинге вообще 0, не понял немного Вас, попробую сформулировать вопрос иным образом:

Expression:='^(?im).*?<li>(.*?)">.*$';

в общем от тега <li> до "> пропарсили первую ссылку на странице, далее нужно добраться до следующей ссылки, также от <li> до ">, и так до конца документа (потока).

[mss]

Ну и что здесь связано с "Работа с сетью в Delphi" ?
И не вздумай даже намекать на метод Get() - в три секунды облажаешься.

[Mihail1987]

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

Ну и что здесь связано с "Работа с сетью в Delphi" ?

Ну ошибся, не в тот раздел запостил, что теперь из этого.

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

И не вздумай даже намекать на метод Get() - в три секунды облажаешься.

...

[Mihail1987]

function exall (const input, expr : string; count : integer; post : tstringlist) : boolean;
  var
  r : TRegExpr;
  begin
result := true;
r := TRegExpr.create;
r.modifieri := true;
  try
    r.expression := expr;
    if r.Exec (input)
    then repeat post.add (r.match [count]);
    until not r.execnext;
  except end;
form1.Memo1.Lines.Add(post.Text);
r.free;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
s:string;
st:tstringlist;
begin
st:=tstringlist.Create;
s:=http.Get('http://site.com/?cat=other');
exall(s,'^(?im).*?<li>(.*?)">.*$',1,st);
end;
end.

exall(s,'^(?im).*?<li>(.*?)">.*$',1,st);

выдирает только первую ссылку, если поставить count >1, то пусто