Удаление ссылок с текста

[ZuBy]

Привет Всем!

Вот сделал функцию для удаления ссылок со строки, только её нужно чуть доделать. кто может помочь?

function ParseInet(var s: string): string;
const
  domArr: array[1..15] of string =
  ('.com.ru', '.ru', '.com', '.net', '.org', '.kz', '.ua', '.рф', '.tv', '.info', '.xxx', '.su', '.info', '.me', '.pro');
  symArr: array[1..4] of string = (')', ']', '}', '>');
  symArr2: array[1..4] of string = ('(', '[', '{', '<');

  function getWWW: integer;
  begin
    Result := pos('http://www.', lowercase(s));
    if Result = 0 then Result := pos('http://', lowercase(s));
    if Result = 0 then Result := pos('www.', lowercase(s));
    if Result = 0 then Result := 1;
  end;

  function getDomain: integer;
  var
    j: integer;
  begin
    Result := 0;

    for j := 1 to 15 do
    begin
      Result := Pos(domArr[j], lowercase(s));
      if Result > 0 then
      begin
        inc(Result, length(domArr[j]));
        Break;
      end;
    end;
  end;

var
  url, dom: integer;
  i, j: integer;
  sym: string;
begin
  if (s <> '') then
  begin
    sym := '';
    dom := getDomain; // поиск домена
    url := getWWW; // поиск начала ссылки

    if dom > 0 then
    begin
      // поиск символа
      for i := 1 to 4 do
      begin
        if (s[dom] = symArr[i]) then
        begin
          dom := dom + 1;
          sym := symArr2[i];
          break;
        end;
      end;
      // ...

      if sym <> '' then // если символ найден, ищем его в строке
        url := PosEx(sym, s, url);

      if (dom > 1) and (url < dom) then
        Delete(s, url, dom - url);
    end;
  end;
  Result := trim(s);
end;

Исходник посмотрите, понятней будет

[Кольша]

можно пройтись функцией stringreplace по строке и заменить ей все ссылки))

[ZuBy]

нет, не подходит. ссылки в строках всегда разные

[Аватар]

1. зачем var s: string в ParseInet не понятно
2. смотрим if (s[dom] = symArr[i]) then
dom указывает на следующую позицию после имени домена, а там пробел вместо ожидаемой закрывающей скобки. Сама скобка дальше. И что?

[ZuBy]

Аватар
1. Delete процедуру знаешь? там var нужна, чтобы можно было совершить удаление
2. не понял

[Аватар]

1. Delete процедуру знаю. Кто заставляет удалять непосредственно из параметра? Локальную переменную нельзя сделать, засунуть в нее значение параметра и работать с локальной?
2. В результате будет то, что вид закрывающей скобки не найдется, соответственно и вид открывающей, со всеми вытекающими последствиями. В примере есть же такая ситуация, в предпоследней записи кажется. Что там возвращается? ]

[ZuBy]

та первое не проблема, там все нормально.
и второе тоже нормально, отвечу почему предпоследний возращает "]"
[Mp3Zone.kz_Nurasyl959595@mail.ru] - вот тут парится потому что.
а в остальном все нормально, меня больше интересует как сделать чтобы правильно выводилась именно вот эта строчка "Guf- дома.mp3 mp3.net"

[Аватар]

Guf- дома.mp3 mp3.net - нет скобок, значит от .net справа налево искать первый пробел и считать, что все левее пробела нужный текст. А в том случае, что я говорил пробел убрать после mail.ru и все нормально будет, и то только потому, что .ru в domArr имеет индекс меньший, чем .kz

[ZuBy]

вот в этом та и вся проблема, если делать поиск пробела, то весь код насмарку.
может есть у кого решение?