TStrings的AddObject方法应用

(1) integer 于 Object

cmbBox.Items.AddObject(A_Value,pointer(I_Value));

I_Ret:=cmbBox.itemindex;
I_perID:=integer(cmbBox.Items.Objects[I_Ret]);

(2) string 于 Object

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

A_Value:=string(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!