在属性写入中引用公共资源库

Question

我可以在不编写单独的 setter 方法的情况下引用属性write访问器中的公共 setter_setTerm，而无需编写单独的 setter 方法_setTerm1、_setTerm2、_setTerm3？

TAdder = class(TCalculatorComponent)
private
_terms: array[1..10] of OleVariant;
procedure _setTerm(const i: Integer; const Value: OleVariant);
procedure _setTerm1(const Value: OleVariant);
procedure _setTerm2(const Value: OleVariant);
procedure _setTerm3(const Value: OleVariant);
.......
public
constructor Create(AOwner: TComponent); override;
property Term1: OleVariant read _terms[1] write _setTerm1;
property Term2: OleVariant read _terms[2] write _setTerm2;
property Term3: OleVariant read _terms[3] write _setTerm3;
.......
end;
implementation
procedure TAdder._setTerm(const i: Integer; const Value: OleVariant);
begin
_terms[i] := TVarConv.NullableFloat(Value);
_calculate();
end;
procedure TAdder._setTerm1(const Value: OleVariant);
begin
_setTerm(1, Value);
end;
procedure TAdder._setTerm2(const Value: OleVariant);
begin
_setTerm(2, Value);
end;
procedure TAdder._setTerm3(const Value: OleVariant);
begin
_setTerm(3, Value);
end;

Answer 1

解决方案 #1

type
TAdder = class
private
_terms: array[1..10] of OleVariant;
procedure _setTerm(const i: Integer; const Value: OleVariant);
function _getTerm(const Index: Integer): OleVariant;
public
property Term1: OleVariant index 1 read _getTerm write _SetTerm;
property Term2: OleVariant index 2 read _getTerm write _SetTerm;
property Term3: OleVariant index 3 read _getTerm write _SetTerm;
end;
function TAdder._getTerm(const Index: Integer): OleVariant;
begin
Result := _terms[i];
end;
procedure TAdder._setTerm(const i: Integer; const Value: OleVariant);
begin
_terms[i] := TVarConv.NullableFloat(Value);
_calculate();
end;

解决方案#2

type
TAdder = class
private
_terms: array[1..10] of OleVariant;
procedure _setTerm(i: Integer; const Value: OleVariant);
function _getTerm(Index: Integer): OleVariant;
public
property Terms[aIndex: Integer]: OleVariant read _getTerm write _SetTerm;
end;

function TAdder._getTerm(Index: Integer): OleVariant;
begin
Result := _terms[Index];
end;
procedure TAdder._setTerm(i: Integer; const Value: OleVariant);
begin
_terms[i] := TVarConv.NullableFloat(Value);
_calculate();
end;

您可能想检查 i 是否超出_SetTerm范围并_GetTerm