Sonderzeichen anzeigen lassen

[Gehstock]

[delphi]
function HTMLContent(const S: string): string;
begin
if s = '' then begin
result := '';
exit; end;
Result := StringReplace(s, '&', '&', [rfreplaceall]); Das Klappt
// Result := StringReplace(s, '"', '"', [rfreplaceall]); ab hier net mehr
// 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;

delphi]