Klartext -> ANSI -> Klartext

[cruso]

Hi!

Ich möchte einen Text nach ANSI konvertieren und so anpassen, dass ich diesen einfach in HTML benutzen kann. Ich hab das so gelöst (funktioniert auch teilweise):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s:String; i:Integer;
begin
s:=Edit1.Text;
Memo1.Text:=s;
For i:=0 to 255 do begin
Memo1.text := StringReplace(Memo1.text, chr(i), '&#'+IntToStr(i)+';',[rfReplaceAll]);
end;
end;

Die Problemkinder sind die Zeichen: & # ;

Wenn man es im HTML-Dokument nachher wieder "zurückübersetzt" sieht merkt man das etwas nicht ganz funktioniert hat.


Wisst ihr, wie man das Problem lösen kann?



MfG
Cruso