Klartext -> ANSI -> Klartext

[Martin K]

Hab meinen Code nochmal überarbeitet, so müsste es gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var s: String; i: Char; 
begin 
  s := Edit1.Text;
  s := StringReplace(s, #35, '&#35'+';', [rfReplaceAll]);
  s := StringReplace(s, #38, '&#38'+';', [rfReplaceAll]);
  s := StringReplace(s, #59, '&#59'+';', [rfReplaceAll]);  //jeweils das '+' weglassen, geht hir nur nicht anders, weil die Zeichen sonst automatisch konvertiert werden...
  For i := Low(Char) to High(Char) do 
    s := StringReplace(s, i, '&#'+IntToStr(Ord(i))+';',[rfReplaceAll]); 
  Memo1.Text := s;
end;