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!

Delphi-Quellcode:

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:

Delphi-Quellcode:

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

[edit]
Ups... :oops: Spider und Ultimator haben natürlich recht... :wall:
@Spider: Kein Wunder, wenn der Kasten schon tot war... :mrgreen:
[/edit]

[Ultimator]

Delphi-Quellcode:

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

Meinst du das?

[Die Muhkuh]

Zitat:

Zitat von Waldteufel

Hi.

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

So ists besser:

Delphi-Quellcode:

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

Hi,

sind das nicht die ersten sechs Werte? :gruebel:

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

Delphi-Quellcode:

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: :shock: Jetzt war der Kasten da, aber es wurde kein Beitrag geschrieben/editiert. :gruebel:

[Hallo_Thomas]

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

[Hallo_Thomas]

Zusammenfassung

Delphi-Quellcode:

for x := 5 to Anzeige.count - 1 do

Zählt von unten nach oben, und lässt die oberen fünf werte aus.

Delphi-Quellcode:

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

Zählt oben nach unten, aber lässt die oberen 5 Werte aus.

Delphi-Quellcode:

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

Listenindex überschreitet Maximum(5)

Delphi-Quellcode:

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

Delphi-Quellcode:

for x := 0 to 5 do

Listenindex überschreitet Maximum(1)

[Hallo_Thomas]

Zitat:

Zitat von Waldteufel

Hi.

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

So ists besser:

Delphi-Quellcode:

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

[edit]
Ups... :oops: Spider und Ultimator haben natürlich recht... :wall:
@Spider: Kein Wunder, wenn der Kasten schon tot war... :mrgreen:
[/edit]

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