TListBox: Out of bounds

[dpy232]

Hallo,
ich vermute, das es mal wieder eine ganz einfache Sache ist, aber nach längerem Suchen finde ich dazu keinen Tipp / Hinweis, der bei mir passen könnte.

Ich Habe eine TListBox die mit Namen gefüllt wird aus einer Datenbank. Sobald ich nicht auf einen Eintrag, sondern neben einen Eintag (in der TListBox) klicke, bekomme ich einen Exception mit "Out of bounds".
Ich habe bereits versucht den Fehler abzufangen, aber ohne großen Erfolg.

Delphi-Quellcode:

while not SQLQuery1.EOF do
begin
  LstBxAktiv.Items.Add(SQLQuery1.Fields[0].AsString);
  SQLQuery1.Next;
end;

Vielleicht hat jemand, eine Idee / Hinweis, wie diesen Fehler beheben kann, bzw. wo mein Fehler liegt.

Schönes Wochenende
Oliver

[DeddyH]

Der Code passt nicht zur Problembeschreibung. Wie sieht denn der OnClick-Handler der ListBox aus?

[dpy232]

Mist, das ist jetzt aber Peinlich. Ein Problem haben, und eine falsche Stelle zu zitieren.
Ein OnClick-Event habe benutze ich nicht. Momentan bearbeite ich das Event mit OnSelectionChange.

Delphi-Quellcode:

procedure TProjekt.LstBxAktivSelectionChange(Sender: TObject; User: boolean);
begin
   SQLQuery1.SQL.Text:='select k.ku_id from kunde as k, boote as b where concat(b.name, " - ", k.name) = "'+LstBxAktiv.Items[LstBxAktiv.ItemIndex]+'" and aktiv = true';
   SQLQuery1.Open;
   gKuId := SQLQuery1.Fields[0].AsInteger;
   SQLQuery1.Close;
   BtDetail.Enabled:=true;
end;

[DeddyH]

Du solltest vorher prüfen, ob LstBxAktiv.ItemIndex auch >= 0 ist, sonst knallt es natürlich.

[dpy232]

Besten Dank für die schnelle Hilfe!
Damit knallt es nicht mehr!

Oliver