Item项目中添加对象

在编程过程中，我们有时因为各种原因，想要在ITEM项目中保存我们想要的东西，这时，我们就得使用Object类来帮助我们实现了。在DELPHI中例如：

1：我们需要自定义一个对象（这步要视具体情况而定，如有现成的则使用现成的对象）

  type TBiItemClass = class(TObject) Value:Variant; Name1:Variant; Name2:Variant; Name3:Variant; Name4:Variant; Name5:Variant; Name6:Variant; Name7:Variant; end;

2：使用：将所需的东东包装起来后，插入到ITEM中;

var i:Integer; BiItem:TBiItemClass; begin inherited; try dbIn_Code.Items.Clear; adoTemp.First; for i:=0 to adoTemp.RecordCount-1 do begin BiItem:=TBiItemClass.Create; BiItem.Value:=adoTemp.FieldValues['In_ID'] ; BiItem.Name1:=Copy('00'+IntToStr(i),(Length('00'+IntToStr(i)) + 1 - 2),2)+' | '+adoTempin_code.Value; dbIn_Code.Items.AddObject(BiItem.Name1,BiItem); adoTemp.Next; end; ................... finally ................ end; end;

3:取出：从ITEM中取出所需的东东使用;

procedure TInventoryInFrm.dbIn_CodeCloseUp(Sender: TObject; var Value: String; var Accept: Boolean); var BiItem:TBiItemClass; begin inherited; ....................... BiItem:=TBiItemClass((Sender as TBiDBPickEdit).Items.Objects[StrToInt(Copy(Value,1,2))]); ............................ end;

 

至此完成整个过程，自定义对象的话，可以包装自已想要的任何东东。使用也非常方便。