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