Hallo cruso,
wenn du die "Sonderzeichen" nicht verarbeitest, werden sie dir in der Ausgabe fehlen...
Der Fehler bei den vorgestellten Lösungen besteht darin, daß bei nachfolgenden StringReplace-Aufrufen auch bereits eingebaute Ziffern ersetzt werden. Hier eine Alternative:
Delphi-Quellcode:
function Convert (const aText: string): string;
var i: Integer;
begin
Result := '';
for i := 1 to Length(aText) do
Result := Result + '&#' + IntToStr(Ord(aText[i])) + ';';
end;
Gruß Hawkeye