Listbox Error

[draGo]

Huhu Dp,

kaum ist das eine Problem gelöst, so kommt ein anderes
Also... ich habe (z.b.) 5 Tabs mit jeweils einem Memo und einem Label drin. (Alle erst zur Laufzeit erstellt!)
Jetzt möchte ich mit einer Schleife prüfen welche Labels in welchem Tab die Caption "changed" haben.
Gedacht hatte ich mir das so:

Delphi-Quellcode:

  for i := 0 to Pagecontrol1.PageCount do begin
    if TLabel(Pagecontrol1.Pages[i].Controls[0]).Caption = 'Changed' then begin
      form4.ListBox1.Items.Add(Pagecontrol1.Pages[i].Caption);
    end;
end;

Damit soll jedes Tab, welches den Label mit "changed" enthält in die Listbox geladen werden.
Erhalten tu ich jedoch nicht die Listbox sondern einen "List Index Out of Bonds" error

Was mache ich falsch, bzw wie kann ich es richtig machen? ^^

mfg
draGo

[3_of_8]

for i := 0 to Pagecontrol1.PageCount do begin Böse, böse, böse...

for i := 0 to Pagecontrol1.PageCount-1 do begin Achja und nebenbei: Meinst du wirklich, wies im Code steht, "Changed"? Oder doch eher "changed"? Oder soll eventuell alles gehen? Also auch "CHANGED" oder "cHaNgEd"?

[Sharky]

Zitat von 3_of_8:

...Böse, böse, böse...

.... ist es einen Code ohne Erklärung zu posten.

[draGo]

Hm...
Erstmal danke an 3_of_8, es funktioniert
Aber ich würde schon gerne wissen (wie Sharky sagt), weshalb das jetzt so ist

Edit: Ja, das stimmt schon so mit dem Changed, 3_of_8 ^^

mfg
draGo

[3_of_8]

Du hast in deinem Beitrag von "changed" gesprochen, daher.

Und ich hielt meinen Beitrag für selbsterklärend.

Also überleg mal. Du hast 10 Seiten (PageCount). Jetzt fängst du an von 0 bis 10 zu zählen:

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10

Das sind 11 Zahlen und du hast 10 Seiten. Wenn du jetzt auf die Seite mit Index 10 zugreifst, krachts. Klar, denn Seite 10 wäre die 11. Seite, die es nicht gibt.

Noch Fragen?

[draGo]

Ah ^^
Okay, ich habs verstanden
Danke dir.