在Delphi中重复设置器逻辑

发布时间：2020-12-15 04:26:42 所属栏目：大数据来源：网络整理

导读：对于每个setter的类,我必须实现一些事件逻辑(OnChanging,OnChanged)： procedure TBlock.SetWeightIn(const Value: Double);var OldValue: Double;begin OldValue := FWeightIn; DoOnChanging(OldValue,Value); FWeightIn := Value; DoOnChanged(OldValue,Va

对于每个setter的类,我必须实现一些事件逻辑(OnChanging,OnChanged)：

procedure TBlock.SetWeightIn(const Value: Double);
var OldValue: Double;
begin
  OldValue := FWeightIn;
  DoOnChanging(OldValue,Value);
  FWeightIn := Value;
  DoOnChanged(OldValue,Value);
end;

procedure TBlock.SetWeightOut(const Value: Double);
var OldValue: Double;
begin
  OldValue := FWeightOut;
  DoOnChanging(OldValue,Value);
  FWeightOut := Value;
  DoOnChanged(OldValue,Value);
end;

你可以建议一种方法来实现这一点,而不是为每个设置者复制所有这些行？

解决方法

尝试这个：

procedure TBlock.SetField(var Field: Double; const Value: Double);
var
    OldValue: Double;
begin
    OldValue := Field;
    DoOnChanging(OldValue,Value);
    Field := Value;
    DoOnChanged(OldValue,Value);
end;

procedure TBlock.SetWeightIn(const Value: Double);
begin
    SetField(FWeightIn,Value);
end;

procedure TBlock.SetWeightOut(const Value: Double);
begin
    SetField(FWeightOut,Value);
end;

（编辑：李大同）

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