Listenindex überschreitet das Maximum (-1) unter Win2000

[omata]

Hallo _SolidSnake_,

programmiere sicher.
Das bedeutet in diesem Fall, greife nicht einfach auf ComboBox_Benutzer.ItemIndex zu und übergebe diesen Wert an Object[] sondern prüfe vorher, ob der Wert überhaupt gültig ist.

Also...

Delphi-Quellcode:

if ComboBox_Benutzer.ItemIndex >= 0 then begin
  id := Integer(ComboBox_Benutzer.Items.Objects[ComboBox_Benutzer.ItemIndex]); 
  query := PChar('SELECT passwort FROM mitarbeiter WHERE id=' + IntToStr(id));
end;

MfG
Thorsten