Umlaute in HTML konforme Texte konvertieren

[p80286]

entschuldige, ich hatte mich vergaloppiert, UTF8Encode ist natürlich nicht Deine Lösung.

Gruß
K-H

edit:
hilft Dir das vllt. weiter:

Delphi-Quellcode:

if length(ins)>0 then
    for i:=1 to length(ins) do
      if ord(ins[i])<128 then begin    { ist ASCII-Zeichen }
        if ord(ins[i])>$2F then begin
          case ins[i] of               { noch ein paar Sonderzeichen }
            ':' : dumm:='&#'+inttostr(ord(ins[i]))+';';
            ';' : dumm:='&#'+inttostr(ord(ins[i]))+';';
            '<' : dumm:='&#'+inttostr(ord(ins[i]))+';';
            '=' : dumm:='&#'+inttostr(ord(ins[i]))+';';
            '>' : dumm:='&#'+inttostr(ord(ins[i]))+';';
            '?' : dumm:='&#'+inttostr(ord(ins[i]))+';';
            else dumm:=ins[i];
          end;{case-------------------------------}
          dummy:=dummy+dumm;
        end
        else begin                     { ist ASCII-Sonderzeichen }
          dumm:='&#'+inttostr(ord(ins[i]))+';';
          dummy:=dummy+dumm;
        end
      end {----                          7-Bit Zeichen}
      else begin                       {ist 8Bit Zeichen }
        dumm:='&#'+inttostr(ord(ins[i]))+';';
        dummy:=dummy+dumm;
      end;