Memo - zeigt nur 2 Lines statt 12 Lines an...

[Codix32]

Während die Listbox die 12 Items ausgibt, gibt das Memo nur die Lines 0 und 1 aus, warum?

Delphi-Quellcode:

uses DateUtils;
...
...
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
 for i := 0 to 13 -1  do
 begin
   Memo1.lines.strings[i] := timetostr(IncSecond(now, 10+(i*8)))+'   '+'Test '+ inttostr(i);
   Listbox1.Items[i]:=  timetostr(IncSecond(now, 10+(i*8)))+'   '+'Test '+ inttostr(i);
 end;
 end;

[mkinzler]

Möglicherweise hat das Memo nur 2 Zeilen.

[himitsu]

Eine "normale" TStringList und die Items der ListBox knallen (Exception), wenn man auf nicht existierende Items/Zeilen zugreift.
Beim TMemoStrings verschwindet das einfach im Nirvana.

So oder so, wer auf nichtexistierende Items zugreift, der ist selber Schuld.

[Codix32]

Zitat von himitsu:

Eine "normale" TStringList und die Items der ListBox knallen (Exception), wenn man auf nicht existierende Items/Zeilen zugreift.
Beim TMemoStrings verschwindet das einfach im Nirvana.

So oder so, wer auf nichtexistierende Items zugreift, der ist selber Schuld.

Das verstehe ich nicht, ich erstelle doch die Lines oder etwa nicht?

Siehe Bild.

[Uwe Raabe]

Zitat von Codix32:

Das verstehe ich nicht, ich erstelle doch die Lines oder etwa nicht?

Nein, du beschreibst sie nur.

So könnte es gehen:

Delphi-Quellcode:

 Memo1.Lines.Clear; // alle Zeilen löschen
 for i := 0 to 13 -1 do
 begin
   // neue Zeile anhängen
   Memo1.lines.Add(timetostr(IncSecond(now, 10+(i*8)))+' '+'Test '+ inttostr(i));
 end;

[mkinzler]

Zitat:

Das verstehe ich nicht, ich erstelle doch die Lines oder etwa nicht?

Nein Du ersetzt nur den Inhalt.

[Christian Seehase]

Moin Himitsu,

Zitat von himitsu:

Eine "normale" TStringList und die Items der ListBox knallen (Exception), wenn man auf nicht existierende Items/Zeilen zugreift.

Das hätt' ich auch gedacht.
Jetzt habe ich es mal in D7 ausprobiert:
Neues Projekt.
TButton
TMemo
TListBox
auf das Formular.

Den Beispielcode drauf und den Button drücken: Gleiches Verhalten, keine Exception aber zwei Zeilen im Memo und 12 in der Listbox.

[mkinzler]

Höchstwahrscheinlich unterdrückt der Setter das und erzeugt die Objekte in der ListBox, im Memo halt nicht.
Will man etwas hinzufügen, sollte man die Add... Methoden verwenden.

[Codix32]

Zitat von Uwe Raabe:

Zitat von Codix32:

Das verstehe ich nicht, ich erstelle doch die Lines oder etwa nicht?

Nein, du beschreibst sie nur.

So könnte es gehen:

Delphi-Quellcode:

 Memo1.Lines.Clear; // alle Zeilen löschen
 for i := 0 to 13 -1 do
 begin
   // neue Zeile anhängen
   Memo1.lines.Add(timetostr(IncSecond(now, 10+(i*8)))+' '+'Test '+ inttostr(i));
 end;

Danke Uwe Raabe, jetzt geht es.
Dann müßte es wohl bei der Listbox auch besser 'Listbox1.items.add' heißen, obwohl man dort 'Items[i]
nicht nur einlesen, sondern auch schreiben kann.

[Codix32]

Zitat von mkinzler:

Höchstwahrscheinlich unterdrückt der Setter das und erzeugt die Objekte in der ListBox, im Memo halt nicht.
Will man etwas hinzufügen, sollte man die Add... Methoden verwenden.

Danke mkinzler