如何在Delphi中给setter第二个参数？

Question

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

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

我有一个公共属性：

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

我可以在这里给出一个参数 displayValue 作为设置器的第二个参数吗？我无法编译这个。

我无法找出正确的方法来做到这一点，并且想知道我是否可以在 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;

您可以劫持 索引说明符 来实现类似的效果，但我不建议这样做。