[hugolom]

RusMaXXX , спасибо.


Но у меня не получаеться найти текст под тегами, я пробовал парсить, то ничего не выходило то какие иероглефы


функцией

Код:

function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

Как вытащить тогда ссылку под тегами? желательно на прямую, а не из мемо(как в исходнике)