Форум АНТИЧАТ - Показать сообщение отдельно

Кстати, M_script_ написал очень хороший и правильный вариант, который работает абсолютно во всех вариантах, написанных выше.

Вот его чуток измененный код, переведенный на Delphi.

Код:

var
  p: integer;
  Data: AnsiString;
  Username: String;
begin
  Data := Memo1.Text;

  while pos('<a href', Data) <> 0 do
  begin
    Delete(Data, 1, Pos('<a href', Data));
    Delete(Data, 1, Pos('>', Data));
    Username := copy(Data, 1, Pos('<', Data) - 1);
    if Username <> '' then Memo2.Lines.Add(Username);
  end;