如何在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

属性的属性设置器只接受一个与属性相同类型的参数。没有语法允许您编写您尝试编写的代码类型。请注意，我忽略了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来实现类似的效果，但我不建议这样做。