Umlaute in HTML konforme Texte konvertieren

[DeddyH]

Nur eine spontane Idee:

Delphi-Quellcode:

function Umlaute2HTML(const Text: string): string;
var strStream: TStringStream;
    i: integer;
begin
  strStream := TStringStream.Create('');
  try
    for i := 1 to Length(Text) do
      case Text[i] of
        'ä': strStream.Write('ä',6);
        'Ä': strStream.Write('Ä',6);
        'ö': strStream.Write('ö',6);
        'Ö': strStream.Write('Ö',6);
        'ü': strStream.Write('ü',6);
        'Ü': strStream.Write('Ü',6);
        else
          strStream.Write(Text[i],1);
      end;
    Result := strStream.DataString;
  finally
    strStream.Free;
  end;
end;