Fórum ComboBox - Valores para exibir e para processar #258094

ComboBox1.Items.AddObject(FieldByName(´XXXX´).AsString,
  TObject(LongInt(NewStr(FieldByName(´YYYY´).AsString))));

strID := PString(ComboBox1.Items.Objects[ComboBox1.ItemIndex])^;

for I := 0 to ComboBox1.Items.Count - 1 do
  DisposeStr(PString(cbGroups.Items.Objects[i]));

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TMyComboObject = class
  private
    { Private declarations }
    fId: Integer;
    fName: String;
  public
    { Public declarations }
    constructor Create(Id: Integer; Name: String);
    property Id: Integer read fId;
    property Name: String read fName;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    procedure ClearComboBox;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

constructor TMyComboObject.Create(Id: Integer; Name: String);
begin
  fId := Id;
  fName := Name;
end;

procedure TForm1.ClearComboBox;
var
  I: Integer;
begin
  if ComboBox1.Items.Count > 0 then
     begin
       for I := 0 to ComboBox1.Items.Count - 1 do
         TMyComboObject(ComboBox1.Items.Objects[I]).Free;
       ComboBox1.Clear;
     end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClearComboBox;
  ComboBox1.Items.AddObject(´Elemento 1´, TMyComboObject.Create(1,´Um´));
  ComboBox1.Items.AddObject(´Elemento 2´, TMyComboObject.Create(2,´Dois´));
  ComboBox1.Items.AddObject(´Elemento 3´, TMyComboObject.Create(3,´Tres´));
  ComboBox1.Items.AddObject(´Elemento 4´, TMyComboObject.Create(4,´Quatro´));
  ComboBox1.Items.AddObject(´Elemento 5´, TMyComboObject.Create(5,´Cinco´));
  ComboBox1.Items.AddObject(´Elemento 6´, TMyComboObject.Create(6,´Seis´));
  ComboBox1.Items.AddObject(´Elemento 7´, TMyComboObject.Create(7,´Sete´));
  ComboBox1.Items.AddObject(´Elemento 8´, TMyComboObject.Create(8,´Oito´));
  ComboBox1.Items.AddObject(´Elemento 9´, TMyComboObject.Create(9,´Nove´));
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Edit1.Text := IntToStr(TMyComboObject(ComboBox1.Items.Objects[ComboBox1.ItemIndex]).Id);
  Edit2.Text := TMyComboObject(ComboBox1.Items.Objects[ComboBox1.ItemIndex]).Name;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ClearComboBox;
end;

end.