变量的包装

最新推荐文章于 2022-12-12 11:22:23 发布

原创最新推荐文章于 2022-12-12 11:22:23 发布 · 810 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#程序开发 #class

Delphi 专栏收录该内容

22 篇文章

订阅专栏

本文介绍了一种在程序开发中解决类型不匹配问题的方法：通过创建包装类实现从IGRField到TObject类型的转换，并展示了如何在TCheckListBox中使用此方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

1、先将IGRField包装成TObject类；
type TIGRFieldInfo = class(TObject)
    m_Field:IGRField;
  end;
2、写一函数能将IGRField包装成TIGRFieldInfo（完成从IGRField到TObject类的蜕变）
function AddIGRFieldInfo(iField: IGRField): TIGRFieldInfo;
var
    pInfo: TIGRFieldInfo;
begin
    pInfo:=TIGRFieldInfo.Create;
    pInfo.m_Field:=iField;
    Result:=pInfo;
end;
3、具体应用到TCheckListBox中:
procedure *****************
var
  i,index: Integer;
  pInfo: TIGRFieldInfo;
begin
..................
       pInfo:=AddIGRFieldInfo(CommReport.DetailGrid.Recordset.Fields.Item[i]);
       Index := CheckListBox.Items.AddObject(pInfo.m_Field.Name,pInfo);
       CheckListBox.Checked[Index] :=True;
 ................
end;
4、从TCheckListBox中取出来使用:
.................
Var
    pInfo: TIGRFieldInfo;
begin
 ...................
 for i:=0 to CheckListBox.Items.Count-1 do
   pInfo := TIGRFieldInfo(CheckListBox.Items.Objects[i]);
............................................