delphi AddObject 用法

//添加數據和對象到下拉框

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  ComboBox1.Items.Clear;
  s:= '1001';
  //ComboBox1.Items.Add('1');
  ComboBox1.Items.AddObject('1',TObject(s) );

  s:='2001';
  //ComboBox1.Items.Add('2');
  ComboBox1.Items.AddObject('2',TObject(s) );
  s:='3001';
  //ComboBox1.Items.Add('3');
  ComboBox1.Items.AddObject('3',TObject(s) );
end;

//從下拉框中獲取數據對象

procedure TForm1.Button2Click(Sender: TObject);
var
  A_Value: string;
begin
  A_Value := string(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
  ShowMessage(A_Value);
end;