ComboBox mit Integer-IDs

[Uwe Raabe]

Bei neueren Delphi-Versionen könnte man so was auch mit einem Class Helper realisieren. Das funktioniert dann mit jeder TComboBox.

Delphi-Quellcode:

type
  TComboBoxHelper = class helper for TComboBox
  private
    procedure SetId(Index, Id: Integer);
    function GetId(Index: Integer): Integer;
  public
    function AddIdItem(const s: string; const Id: Integer): Integer;
    property Id[Index: Integer]: Integer read GetId write SetId;
  end;

function TComboBoxHelper.AddIdItem(const s: string; const Id: Integer): Integer;
begin
  Result := Items.AddObject(s, TObject(Id));
end;

function TComboBoxHelper.GetId(Index: Integer): Integer;
begin
  Result := Integer(Items.Objects[Index]);
end;

procedure TComboBoxHelper.SetId(Index, Id: Integer);
begin
  Items.Objects[Index] := TObject(Id);
end;