вытащить текст из тегов

[lezgin]

все получилось. вот только теперь другая задача:
получилось вот так href="/geoip/"/?phpsessid=ejh7993c365iq3u0che5jrun 60>russian federation, Москва . Как мне теперь скопировать только местоположение без лишнего мусора. То есть нужно скопировать все после >

[BDA]

Заменить функцию на:

function extract(const text, begin1, end1: string): string;
var
  startpos, endpos: integer;
begin
  result := '';
  startpos := Pos(begin1, text);
  if startpos < 1 then
    exit;
  inc(startpos, length(begin1));
  startpos := PosEx('>', text, startpos);
  if startpos < 1 then
    exit;
  inc(startpos);
  endpos := PosEx(end1, text, startpos);
  if endpos < 1 then
    exit;
  result := Copy(text, startpos, endpos - startpos);
end;

[lezgin]

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

Заменить функцию на:

function extract(const text, begin1, end1: string): string;
var
  startpos, endpos: integer;
begin
  result := '';
  startpos := Pos(begin1, text);
  if startpos < 1 then
    exit;
  inc(startpos, length(begin1));
  startpos := PosEx('>', text, startpos);
  if startpos < 1 then
    exit;
  inc(startpos);
  endpos := PosEx(end1, text, startpos);
  if endpos < 1 then
    exit;
  result := Copy(text, startpos, endpos - startpos);
end;

нет, теперь другая проблема. В edit1 есть текст href="/geoip/"/?phpsessid=ejh7993c365iq3u0che5jrun 60>russian federation, Москва . Мне оттуда в edit2 нужно копировать только "russian federation, Москва". Как сделать это?

[BDA]

нет, теперь другая проблема

Если Вы замените функцию, то она и будет извлекать то, что нужно.
Или Вам нужно phpsessid тоже показать?

[lezgin]

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

Если Вы замените функцию, то она и будет извлекать то, что нужно.
Или Вам нужно phpsessid тоже показать?

Нет, мне нужно копировать все после >. Вот например в edit1 этот текст. Мне нужно из edit1 копировать в edit2 только местоположение

[BDA]

Для копирования текста есть функция copy. Чтобы найти ">" можно использовать pos.
Только я не понимаю, почему сначала нужно скопировать href="/geoip/"/?phpsessid=ejh7993c365iq3u0che5jrun 60>russian federation, Москва, а потом из него извлекать russian federation, Москва, когда можно сразу из исходного текста извлечь russian federation, Москва.