delphi中的匿名记录构造函数

发布时间：2020-12-15 06:09:56 所属栏目：大数据来源：网络整理

导读：可以使用记录作为方法参数,并且在不隐式声明所述记录的实例的情况下调用它吗？我想编写这样的代码. type TRRec = record ident : string; classtype : TClass; end;procedure Foo(AClasses : array of TRRec); 然后调用这样的方法或类似的东西. Foo([('Butt

可以使用记录作为方法参数,并且在不隐式声明所述记录的实例的情况下调用它吗？

我想编写这样的代码.

type
  TRRec = record
    ident : string;
    classtype : TClass;
  end;

procedure Foo(AClasses : array of TRRec);

然后调用这样的方法或类似的东西.

Foo([('Button1',TButton),('Lable1',TLabel)]);

我仍然坚持使用Delphi 5.

解决方法

是.几乎.

type
  TRRec = record
    ident : string;
    classtype : TClass;
  end;

function r(i: string; c: TClass): TRRec;
begin
  result.ident     := i;
  result.classtype := c;
end;

procedure Foo(AClasses : array of TRRec);
begin
  ;
end;

// ...
Foo([r('Button1',r('Lable1',TLabel)]);

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!