Sonderzeichen umwandeln in ISO-8859-1 und Konsorten

[marabu]

Hallo,

nimm das hier solange du nichts besseres findest:

Delphi-Quellcode:

function StrToHtml(s: string): string;
const
  EntityChars = '"&<>''';
  EntityStrings: array [1..5] of string
    = ('&quot;', '&amp;', '<', '>', '&apos;');
var
  i, j: integer;
begin
  for i := Length(s) downto 1 do begin
    j := Pos(s[i], EntityChars);
    if j > 0 then begin
      Delete(s, i, 1);
      Insert(EntityStrings[j], s, i);
    end else
    if not (s[i] in [#32..#127]) then begin
      Delete(s, i, 1);
      Insert('&#' + IntToStr(Ord(s[i])) + ';', s, i);
    end;
  end;
  Result := s;
end;

Grüße vom marabu