TListBox: Out of bounds

[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