![]() |
Listbox - Seletierte Einträge
Gibt es eine Möglichkeit, bei einer Listbox die selectierten Einträge (zur not auch den Index) abzufragen?
|
Re: Listbox - Seletierte Einträge
Hallo,
mit
Code:
bekommst du den Index
listbox1.ItemIndex;
und mit
Code:
den Eintrag.
listbox1.Items[listbox1.ItemIndex];
|
Re: Listbox - Seletierte Einträge
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; |
Re: Listbox - Seletierte Einträge
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
|
Re: Listbox - Seletierte Einträge
Zitat:
|
Re: Listbox - Seletierte Einträge
Mal ne Frage: Warum sollte es "vorwärts" zu Problemen kommen?
Gruß Yheeky |
Re: Listbox - Seletierte Einträge
Weil dann sonst das löschen nicht geht, da die Schleife zu weit laufen würde.
|
Re: Listbox - Seletierte Einträge
Doch, also ich habe ne Möglichkeit, mit der das Löschen auch "vorwärts" funktioniert:
Code:
Funktioniert bei mir einwandfrei...... 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; Gruß Yheeky |
Re: Listbox - Seletierte Einträge
was spricht gegen downto, wo man nur halbsoviele zeilen braucht?
|
Re: Listbox - Seletierte Einträge
Genau, warum so viel Aufwand und das um 5 Ecken denken, wenn es auch einfach geht?!
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:48 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz