TComboBox mit eigenem ItemIndex

[Union]

Hier mal ein Beispiel für AddObject:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Clear;
  Combobox1.Items.AddObject('Z', pointer(0));
  Combobox1.Items.AddObject('B', pointer(1));
  Combobox1.Items.AddObject('A', pointer(2));
  ComboBox1.Sorted := True;
  ComboBox1.Text := ComboBox1.Items[0];
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  o: integer;
begin
  with TComboBox(Sender) do
  begin
    if ItemIndex > -1 then
      o := Integer(Items.Objects[ItemIndex])
    else
      o := -1;
    Label2.Caption := Format('Itemindex : %d Object: %d', [ItemIndex, o]);
    // A = 0, 2
    // B = 1, 1
    // Z = 2, 0
  end;
end;