如何在Delphi中为setter提供第二个参数？

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

导读：我想知道我们是否可以在Delphi中这样做：我有一个私人程序： procedure SetMySend(const oValue: TTM_MySend_Profile; displayValue: string = '...'); 我有一个公共财产： property MySend: TTM_MySend_Profile displayLocateID '...' read FMySend write

我想知道我们是否可以在Delphi中这样做：
我有一个私人程序：

procedure SetMySend(const oValue: TTM_MySend_Profile;
    displayValue: string = '...');

我有一个公共财产：

property MySend: TTM_MySend_Profile displayLocateID '...'
    read FMySend write SetMySend;

我可以在这里给出一个参数displayValue作为setter的第二个参数吗？我不能得到这个编译.

我无法弄清楚这样做的正确方法,并想知道我是否可以在Delphi中做到这一点.感谢帮助！

解决方法

属性的属性设置器只接受一个与属性相同类型的参数.没有语法允许您编写您尝试编写的代码类型.请注意,我忽略了这里不相关的 array properties.

您需要做的是编写一个专用的setter,它为SetMySend函数提供额外的参数.

procedure SetMySend(const Value: TTM_MySend_Profile; 
    const displayValue: string); overload;
procedure SetMySend(const Value: TTM_MySend_Profile); overload;
property MySend: TTM_MySend_Profile read FMySend write SetMySend;

然后在你编写的实现中

procedure TMyClass.SetMySend(const Value: TTM_MySend_Profile);
begin
  SetMySend(Value,'...');
end;

你可以劫持index specifiers以实现类似的效果,但我不建议这样做.

（编辑：李大同）

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