WEB开发网
开发学院软件开发Delphi TStrings的AddObject方法应用 阅读

TStrings的AddObject方法应用

 2006-02-04 13:51:07 来源:WEB开发网   
核心提示:(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 于 Obje

(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]);

Tags:TStrings AddObject 方法

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接