Darstellung von Zeichen im TMemo

[smart]

Zitat von 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;

Da fehlt dann immer die letze Stelle. Aus '1234' macht er dann:

Delphi-Quellcode:

1
2
3

Komische Sache?!

Gruß
Heike