在Delphi中重复设置器逻辑

对于每个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;