Como Remover as Tags HTML de uma String | Delphi

Função para Remover as tags HTML de uma string com Delphi

Dica:

Esta dica elimina todas as tags HTML do Memo, RichEdit ou WebBrowser e elimina as linhas em branco.

Exemplo:

1. Em um Memo, RichEdit ou WebBrowser é exibido o HTML abaixo.

2. Remove as tags e deixa somente o texto com as linhas em branco.

3. Remove as tags e as linhas em branco.

Função:

function RemoveTags(S: string): string;
var
  TagInicio, TagFim, TagLength: integer;
begin
  TagInicio := Pos( '<', S); // posição de busca de primeira <

  while (TagInicio > 0) do begin  // enquanto há uma < em S
    TagFim := Pos('>', S);       // encontra a correspondente >
    TagLength := TagFim - TagInicio + 1;
    Delete(S, TagInicio, TagLength); // exclui a tag
    TagInicio:= Pos( '<', S);       // pesquisa a proxima <
  end;
  Result := S; // da o resultado
end;

Como usar:

RichEdit1.Text := RemoveTags(RichEdit1.Text);

Desta forma resultara conforme imagem de número 2.

Para remover as tags e linhas em branco conforme imagem de número 3 usar a função abaixo: