Sonderzeichen anzeigen lassen

[Gehstock]

Delphi-Quellcode:

 function HTMLContent(const S: string): string;
  begin
    if s = '' then begin
    result := '';
    exit;   end;
    Result := StringReplace(s, '&', '&', [rfreplaceall]);
    Result := StringReplace(result, '"', '"', [rfreplaceall]);
//    Result := StringReplace(result, '<', '&lt;', [rfreplaceall]);
//    Result := StringReplace(result, '>', '&gt;', [rfreplaceall]);
//    Result := StringReplace(result, '''', '&auml' [rfreplaceall]);
//    Result := StringReplace(result, 'ä', '&auml;', [rfreplaceall]); // OEM
//    Result := StringReplace(result, 'ö', '&ouml;', [rfreplaceall]);
//    Result := StringReplace(result, 'ü', '&uuml;', [rfreplaceall]);
//    Result := StringReplace(result, 'Ä', '&Auml;', [rfreplaceall]);
//    Result := StringReplace(result, 'Ö', '&Ouml;', [rfreplaceall]);
//    Result := StringReplace(result, 'Ü', '&Uuml;', [rfreplaceall]);
//    Result := StringReplace(result, '„', '&auml;', [rfreplaceall]); // ANSI
//    Result := StringReplace(result, '�', '&ouml;', [rfreplaceall]);
//    Result := StringReplace(result, '?', '&uuml;', [rfreplaceall]);
//    Result := StringReplace(result, 'Ž', '&Auml;', [rfreplaceall]);
//    Result := StringReplace(result, 'â„¢', '&Ouml;', [rfreplaceall]);
//    Result := StringReplace(result, 'Å¡', '&Uuml;', [rfreplaceall]);
//    Result := StringReplace(result, 'ß', '&szlig;', [rfreplaceall]);
    end;

Schusselfehler ändert aber auch nix