Удалить Html-теги Из Строки.

  • Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Sascha Оффлайн

Sascha

Заместитель Администратора
Команда форума
Администратор
9 Май 2015
1,048
261
155
45
#1
Например, строка: <b><i>Important</i></b> notes
должно получится так: Important notes
Кидаем на форму 2 Memo и Button.
Пишем функцию;
[HIDE=15]
Код:
 function StripHTML(S: string): string;
var
  TagBegin, TagEnd, TagLength: integer;
begin
  TagBegin := Pos( '<', S);      // ищем первую позицию <

  while (TagBegin > 0) do begin  // while there is a < in S
    TagEnd := Pos('>', S);              // находим совпадения >
    TagLength := TagEnd - TagBegin + 1;
    Delete(S, TagBegin, TagLength);     // удаляем теги
    TagBegin:= Pos( '<', S);            // ищем дальше <
  end;

  Result := S;                  
end;
[/HIDE]
Нажимаем Button и вписываем код;

[HIDE=15]
Код:
Memo2.Text := StripHTML(Memo1.Text);
[/HIDE]
Не забываем ставить лаки!drink