Listbox - Seletierte Einträge

[Taladan]

Gibt es eine Möglichkeit, bei einer Listbox die selectierten Einträge (zur not auch den Index) abzufragen?

[Biohazard]

Hallo,

mit

Code:

listbox1.ItemIndex;

bekommst du den Index

und mit

Code:

listbox1.Items[listbox1.ItemIndex];

den Eintrag.

[Tpercon]

Dazu findest du viel über die Suche.

Delphi-Quellcode:

for i := 0 to ListBox1.Items.Count - 1 do begin
  if ListBox1.Selected[i] then tudasunddas;
end;

[alcaeus]

Meines Wissens nach kannst du nur "rückwärts" arbeiten: Mit ListBox1.Selected[Index] kannst du herausfinden ob ein gewisses Element selektiert ist...Ich kenne (noch) keinen Anderen Weg,sorry

[Tpercon]

Zitat von alcaeus:

Meines Wissens nach kannst du nur "rückwärts" arbeiten: Mit ListBox1.Selected[Index] kannst du herausfinden ob ein gewisses Element selektiert ist...Ich kenne (noch) keinen Anderen Weg,sorry

Ja, es wäre besser rückwärts die Schleife zu durchlaufen (for i := ListBox1.Items.COunt - 1 downto 0 do), wenn du die selektierten Einträge z.B. löschen möchtest. Ansosnten bekommst du ne schöne Fehlermeldung.

[Yheeky]

Mal ne Frage: Warum sollte es "vorwärts" zu Problemen kommen?

Gruß Yheeky

[Tpercon]

Weil dann sonst das löschen nicht geht, da die Schleife zu weit laufen würde.

[Yheeky]

Doch, also ich habe ne Möglichkeit, mit der das Löschen auch "vorwärts" funktioniert:

Code:

...

    procedure DeleteListBox;

...

procedure TForm1.DeleteListBox;
var I : Byte;
    Exit : Boolean;
begin
Exit := False;

// Angenommen die ListBox enthält Einträge -> ansonsten...
// -> if ListBox1.Items.Count <> 0 then
for I := 0 to ListBox1.Items.Count-1 do
begin
if Exit = False then
   begin
   if ListBox1.Selected[i] = True then
      begin
      ListBox1.Items.Delete(I);
      DeleteListBox;
      Exit := True;
      end;
   end;
end;

end;

// Beim "Löschen-Button" die Prozedure aufrufen
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteListBox;

end;

Funktioniert bei mir einwandfrei...

Gruß Yheeky

[Pseudemys Nelsoni]

was spricht gegen downto, wo man nur halbsoviele zeilen braucht?

[Tpercon]

Genau, warum so viel Aufwand und das um 5 Ecken denken, wenn es auch einfach geht?!