Вытаскивание ссылок из текста

[jocry]

Как можно вытащить html ссылки из текста. В тексте они могут располагаться произвольно.
Вид ссылки: http://dsv.data.cod.ru/цифры (http://dsv.data.cod.ru/23978)
Вот мой код, только он некорректно работает

procedure TForm1.Memo1Change(Sender: TObject);
 var i,j:integer;
 s,h:string;

 function Int(s:string):Boolean;
  var i:integer;
  begin
  Result:=true;
  try
   i:=StrToInt(s);
  except
   Result:=false;
  end;
  end;

begin
Memo2.Clear;
for I := 0 to Length(Memo1.Text)-24 do
 begin
   h:='';
   s:= Copy(Memo1.Text,i,23);
   if s = 'http://dsv.data.cod.ru/' then
    for j := i+23 to Length(Memo1.Text)-i do
     begin
     if Int(Memo1.Text[j]) then h:=h+Memo1.Text[j]
      else
      begin
      Memo2.Lines.Add('http://dsv.data.cod.ru/'+h);
      Break;
      end;
     end;
 end;

end;

[Kotofff]

судя по всему нужны цифры после "http://dsv.data.cod.ru/" ?
тогда может пройтись по всему тексту выбирая отдельные слова и сравнивая текущее слово с "http://dsv.data.cod.ru/" в его начале ,затем отбрасывать это самое "http://dsv.data.cod.ru/" ,проверять остались одни цифры иль нет - вытаскивать эти самые цифры ... удалив ,например из текущего слова то самое "http://dsv.data.cod.ru/"

или как я не правильно понял ?

P.S.
"ходить" по тексту удобнее всего с помощью модуля работы по строками и не только http://acedutils.narod.ru/AcedUtils.zip

[mihali4]

Это называется умным словом "парсинг".
Достаточно ввести его в окно поиска по форуму (когда ж вы научитесь им пользоваться? Или это слишком сложно для вас?) и получить ответ.
Например:
http://programmersforum.ru/showthrea...F0%F1%E8%ED%E3
http://programmersforum.ru/showthrea...F0%F1%E8%ED%E3

В следующий раз молча грохну напрочь такую тему.