combobox bringt exception

[Bernhard Geyer]

Check den ItemIndex der ComboBox:

Delphi-Quellcode:

begin
  fauftragkd_id := 0;
  // Combobox-Item ausgewählt
  if kdCombobox3.ItemIndex > -1 then
  begin
     Obj3 := kdCombobox3.Items.Objects[kdCombobox3.ItemIndex] as TKunde;
     if Assigned(Obj3) then
        fauftragkd_id:= obj3.KUNDEN_ID
  end;
end;