Moodsky 发表于 2007-2-8 10:23:03

TStrings的AddObject方法应用

1) integer 于 Object

   cmbBox.Items.AddObject(A_Value,pointer(I_Value));
   
   I_Ret:=cmbBox.itemindex;
   I_perID:=integer(cmbBox.Items.Objects);

(2) string 于 Object

A_Code:='custID';
ComboBox1.Items.AddObject('客户ID',TObject(A_Code));

A_Value:=string(ComboBox1.Items.Objects);
页: [1]
查看完整版本: TStrings的AddObject方法应用