Listbox runterzählen (GELÖST!)

[Diablo9876]

Hallo Leute,

Ich habe eine Listbox mit einträgen und möchte die mittels einen Button runterzählen bis Listbox1.items.count -1 (Manuell also, NICHT For i:=0 ....)

Also jedesmal wenn ich den Button klicke mus die Listbox eine Zeile tiefer gehen und die Zeile selectieren.
Wie mach ich das.

procedure TForm1.Button6Click(Sender: TObject);
var
begin
if edit3.Text = '' then
listbox1.ItemIndex := listbox1.ItemIndex + 1;
end;

Aber irgendwie bleibt er danach auf die Zeile stehen und läuft nicht weiter.

[chris01]

ListBox1.items.count := Listbox1.items.count-1;

Wenn ich mich nicht ganz irre!! Kann es leider jetzt nicht testen!!

Bye chris01

[Diablo9876]

Funzt leider nicht chris01.

Mein Code als Hilfe:

procedure TForm1.Button6Click(Sender: TObject);
var
i:integer;
begin
for i:= 0 to listbox1.items.Count -1 do
listbox1.selected[i]:=true;
if edit3.Text = '' then
listbox1.ItemIndex := listbox1.ItemIndex + 1;
end;

[Christian Seehase]

Moin Diablo,

also Dein Beispiel aus dem Eingangsposting funktioniert doch.

BTW: Würdest Du bitte die Code Tags benutzen. Danke.

[chris01]

Das löscht doch garnicht, richtig??

[Diablo9876]

Christian er bleibt aber bei der Zeile stehen und läuft bei den nächsten klicjk nicht weiter!

[chris01]

Dann musst du Inc(i) machen!! D.h i:=i+1;

[Duffy]

Hallo Diablo9876,
ist es das, was Du willst?
bye

[Diablo9876]

Danke Duffy genau dast ist es..