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:

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?!

[sakura]

@Yheeky: Du bist Dir aber schon im Klaren, das Rekursion für dieses Problem nicht gerade die sinnvollste Lösung ist... :roll:

...:cat:...

[sakura]

Mal eine etwas ausführlichere Begründung, warum man nicht Elemente einer Liste in einer vorwärts-laufenden Schleife löschen kann - bzw. warum es zu Exception kommt.

Wenn die Schleife gestartet wird, speichert Delphi im ECX-Register die Gesamtzahl der Iterationen für die Schleife. Das ist eine Optimierung um schnell zu sein. ;-) Dieses Register wird mit jedem Durchlauf heruntergezählt und nicht neu überprüft. Werden jetzt während des Durchlaufes Elemente gelöscht, so will Delphi immer noch alle ursprünglich vorhandenen Elemente durchlaufen... :arrow: Index out of Bounds.

Wer unbedingt vorwärts durch die Schleife luafen muss, sollte es mit einer while Schleife lösen:

Delphi-Quellcode:

var I: Integer;
...
  I := 0;
  while I < Items.Count-1 do
  begin
    ......
    Inc(I);
  end;
...

...:cat:...

[Yheeky]

Ihr versteht meine Intention nicht...ich wollte keine "bessere" Lösung vorstellen, sondern hatte nur gefragt, warum es (angeblich) nicht vorwärts gehen soll:

Zitat:

Zitat: Warum sollte es "vorwärts" zu Problemen kommen?

Darauf kam die Antwort von Tpercon:

Zitat:

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

Das wollte ich hier lediglich widerlegen, sonst nichts. Nur falls jemand die "Vorwärtsvariante" interessieren sollte...

@Sakura: Rekursion ist eine häufig verwendete Programmierart, deswegen kann man sie nicht oft genug verwenden :wink:

Gruß Yheeky

[sakura]

Zitat:

Zitat von Yheeky

Rekursion ist eine häufig verwendete Programmierart

Stimmt.

Zitat:

Zitat von Yheeky

deswegen kann man sie nicht oft genug verwenden

Meinst Du das ernst :shock:

In fast allen Fällen ist Rekursion extrem viel langsamer als Iteration. Weshalb sollte man die dann nutzen, wenn es einfacher mit einer Iteration zu lösen ist. Rekursion hat ihre Berechtigung, aber bestimmt nicht in diesem Falle ;-) Speziell hier ist die Lösung dadurch sehr, sehr viel langsamer und umständlicher.

Für eine Dateisuche über eine gesamte HD würde ich Rekursion immer der Iteration vorziehen, da diese (wenn auch langsamer) garantiert übersichtlicher ist. Aber in diesem Falle doch nicht...

...:cat:...

[Yheeky]

Du hast mich beim 2.Mal falsch zitiert, bzw. den Smiley vergessen -> :wink: <-

Das Rekursion häufig verwendet wird, war schon mein ernst, aber das man es selbst oft verwenden soll, war natürlich nur Spaß :D

Gruß Yheeky

[sakura]

Na gut :D

...:cat:..

[Yheeky]

Wunderbar! Dann hat sich doch noch alles zum Guten gewendet :lol:

Gruß Yheeky

[Illuminator-23-5]

ich hab folgende erfahrung mit rekursion:
ich musste mal die fibonacci-zahlen für die schule programmieren. fast alle habens mit rekurstion gemacht, da hats ca. 5x so lang gebraucht und bei hohen zahlen war der kellerspeicher plötzlich voll!!! :shock:
ich würde rekursion nur dann verwenden, wenns nix anderes gibt!!!

[für alle, die nicht wissen, was fibonacci-zahlen sind:
fibonacci(n) = fibonacci(n-1) + fibonacci(n-2)
fibonacci(1) = fibonacci(2) = 1]