Listbox bloss die letzten/obersten 5 Werte abfragen lassen?

[Hallo_Thomas]

Irgendwie mache ich etwas verkehrt, ich möchte, das in der Listbox nur die obersten fünf Werte abgefragt werden! Stattdessen werden diese ignoriert und der Rest bewertet!



for x := Listbox1.count - 1 downto 5 do

[Waldteufel]

Hi.

Dein Code fragt die letzen fünf, nicht die ersten fünf Werte ab

So ists besser:

for i := 0 to 4 do MachWas(ListBox.Items[i]) [edit]
Ups... Spider und Ultimator haben natürlich recht...
@Spider: Kein Wunder, wenn der Kasten schon tot war...
[/edit]

[Ultimator]

Delphi-Quellcode:

for i:= 0 to 4 do
 ShowMessage(ListBox1.Items.Strings[i]);

Meinst du das?

[Die Muhkuh]

Zitat von Waldteufel:

Hi.

Dein Code fragt die letzen fünf, nicht die ersten fünf Werte ab

So ists besser:

for i := 0 to 5 do MachWas(ListBox.Items[i])

Hi,

sind das nicht die ersten sechs Werte?

0, 1, 2, 3, 4, 5 = 6.

for i := 0 to 4 do MachWas(ListBox.Items[i]) [edit] Kein toter Kasten? [/edit]

[Hallo_Thomas]

Ganz wichtig, es soll von oben nach unten Zählen

Delphi-Quellcode:

for x := 0 to 5 do
for y := 0 to 424 do  // Mit jedem SetOfByte vergleichen
   begin
      if (StrToInt(Anzeige.Items[x]) in werte[y]) then
      begin
        Counte[y] := 0
      end;
   end;

Fehlermeldung
Listenindex überschreitet Maximum (1)

[Ultimator]

Öh:

Delphi-Quellcode:

for 4 downto 0 do
 ShowMessage(ListBox1.Items.Strings[i]);

So?


//edit: Jetzt war der Kasten da, aber es wurde kein Beitrag geschrieben/editiert.

[Hallo_Thomas]

Irgendwie klappt das alles nicht , ich stell hier mal ein Beispiel rein.

[Hallo_Thomas]

Zusammenfassung


for x := 5 to Anzeige.count - 1 do Zählt von unten nach oben, und lässt die oberen fünf werte aus.



for x := Anzeige.count - 1 downto 5 do Zählt oben nach unten, aber lässt die oberen 5 Werte aus.


for x:=5 downto Anzeige.count - 1 do Listenindex überschreitet Maximum(5)


for x := 0 downto 5 do hier zählt er überhaupt nicht

Fehlermelung:
-for oder while schleife wird nicht durchlaufehn -gelöscht
-Variable 'x' wurde deklariert , aberin TForm1.AddMyItem' nicht verwendet


for x := 0 to 5 do Listenindex überschreitet Maximum(1)

[Hallo_Thomas]

Zitat von Waldteufel:

Hi.

Dein Code fragt die letzen fünf, nicht die ersten fünf Werte ab

So ists besser:

for i := 0 to 4 do MachWas(ListBox.Items[i]) [edit]
Ups... Spider und Ultimator haben natürlich recht...
@Spider: Kein Wunder, wenn der Kasten schon tot war...
[/edit]

Thomas: "genau das wollt ich, aber genau die werden durch diesen code ignoriert"