(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]);
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18