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

Question

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

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

我有一个公共财产:

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

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

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

Answer 1

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

您需要做的是编写一个专用的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;

你可以劫持索引说明符来实现类似的东西,但我不建议这样做.