Darstellung von Zeichen im TMemo

[Nils_13]

Bei mir gab es da noch Darstellungsfehler, deshalb die kleine Veränderung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
    S: String;
begin
  S:= Memo1.Text;
  Memo1.Clear;
  for i:= 1 to Length(S) - 1 do
    Memo1.Lines.Add(S[i]);
end;

Mist, zu spät.