Hallo,
wer MSHTML eingebunden hat, der kann seine character entities einfach so eliminieren:
Delphi-Quellcode:
function HtmlToAnsi(const s: string): string;
var
doc: OleVariant;
begin
doc := CoHTMLDocument.Create;
doc.open;
doc.Write(s);
doc.Close;
Result := doc.body.innerText;
end;
Grüße vom marabu