Darstellung von Zeichen im TMemo

[smart]

Hallo Alle!

Ich möchte in einem TMemo '1234' so darstellen

Delphi-Quellcode:

1
2
3
4

Mit diesem Code geht es nicht ganz. Es wird eine Stelle ausgelassen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
A: Integer;
begin
Memo1.Clear;
  For A := 0 To Length('1234') -1 do
  begin
    Ausgabe := Copy('1234', A,1);
    Memo1.Lines.Add(Ausgabe);
  end;

end;

Was mache ich da falsch. Ich komme nicht darauf!

Gruß
Heike

[Neutral General]

Delphi-Quellcode:

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

Gruß
Neutral General

[smart]

Zitat:

Zitat von Neutral General

Delphi-Quellcode:

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

Vielen Dank für Deine Mühe, Neutral General!

Ist leider der gleiche Fehler. Die letzte Stelle wir abgeschnitten!

Gruß
Heike

[ste_ett]

Zitat:

Zitat von smart

Delphi-Quellcode:

  For A := 0 To Length('1234') -1 do

In Delphi beginnt ein String bei Index 1.
Dein Code ist an sich korrekt, nur musst du von 1 bis Length() laufen. :)

[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.

[smart]

Zitat:

Zitat von ste_ett

Zitat:

Zitat von smart

Delphi-Quellcode:

  For A := 0 To Length('1234') -1 do

In Delphi beginnt ein String bei Index 1.
Dein Code ist an sich korrekt, nur musst du von 1 bis Length() laufen. :)

Das dachte ich zu Anfang auch, aber dann kommt das heraus:

Delphi-Quellcode:

1
1
2
3

Komisch. Irgend etwas übersehe ich da.

Gruß
Heike

[ste_ett]

Hast du deinen Code entsprechen geändert?

Delphi-Quellcode:

For A := 1 To Length('1234') do

[smart]

Zitat:

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

[ste_ett]

Kein -1 am Ende.
Sonst wird logischewrweise daas letzte Zeichen nicht beachtet. :)

[Neutral General]

ups ja das -1 muss weg :oops:
Hab den Code nicht wirklich getestet..;)

Gruß
Neutral General