学步园

在程序开发中经常会遇到类型传递不配的情况，有时又不得不传递所需的类型，我们可以采用包装的方法（碍眼法），如下，我们要在TCheckListBox中保存IGRField字段，但TCheckListBox本身只允许TObject类型，于是我们可以采用将IGRField包装成TObject的方法，再加入TCheckListBox,如下:

1. 1、先将IGRField包装成TObject类；
3. type TIGRFieldInfo = class(TObject)
4.     m_Field:IGRField;
5.   end;
7. 2、写一函数能将IGRField包装成TIGRFieldInfo（完成从IGRField到TObject类的蜕变）
9. function AddIGRFieldInfo(iField: IGRField): TIGRFieldInfo;
10. var
11.     pInfo: TIGRFieldInfo;
12. begin
13.     pInfo:=TIGRFieldInfo.Create;
14.     pInfo.m_Field:=iField;
15.     Result:=pInfo;
16. end;
18. 3、具体应用到TCheckListBox中:
20. procedure *****************
21. var
22.   i,index: Integer;
23.   pInfo: TIGRFieldInfo;
24. begin
25. ..................
26.        pInfo:=AddIGRFieldInfo(CommReport.DetailGrid.Recordset.Fields.Item[i]);
27.        Index := CheckListBox.Items.AddObject(pInfo.m_Field.Name,pInfo);
28.        CheckListBox.Checked[Index] :=True;
29.  ................
30. end;
32. 4、从TCheckListBox中取出来使用:
34. .................
35. Var
36.     pInfo: TIGRFieldInfo;
37. begin
38.  ...................
39.  for i:=0 to CheckListBox.Items.Count-1 do
40.    pInfo := TIGRFieldInfo(CheckListBox.Items.Objects[i]);
41. ............................................