[Listbox] MouseUp - "index überschreitet Maximum" wenn leer

[Aurelius]

Hallo DP'ler

Ich greife im MouseUp-Ereignis einer Listbox auf diese zu:

Delphi-Quellcode:

if Button = mbLeft then
begin
   i := lsbPlaylist.ItemIndex;
   Datei := lsbPlaylist.Items.Strings[i];
   GetInfos(Datei);
end;

Nur leider kommt, wenn die Listbox leer ist, der Fehler "Index überschreitet Maximum" (ist ja auch ganz logisch ). Nur leider habe ich einfach keine Idee wie ich das lösen soll

[Bernhard Geyer]

wie wäre es mit einem:
if i > -1 then -1 kennzeichnet das kein Eintrag ausgewählt wurde.

[Aurelius]

Mal schauen, meld mich gleich wieder

[Aurelius]

Geht leider nicht. Wenn ich auf die leere Listbox klicke wird i mit meinem Code nicht auf -1 sondern auf 0 gesetzt. Problem ist aber, dass i auch auf 0 gesetzt wird wenn 1 regulärer Eintrag in der Liste steht.

[rawsoul]

Das Problem ist mir auch schon aufgefallen. Habe es immer - wahrscheinlich unnötig unelegant - so gelöst:

if (lb.items.count>=0) and (lb.items[0]<>'') then [...]

[Aurelius]

Ich glaube ich habe die Lösung dafür gefunden. Es tritt dann auf wenn man den "dragmode" auf "Automatisch" stellt.

Trotdem Danke für die Tipps

[marabu]

Moin,

vielleicht möchtest du noch diesen Thread lesen: klick

Grüße vom marabu