在DELPHI中定义类似数组读写方式的属性

很多时候 我们需要定义 类似 下面这样的对象方法：

TOBJECT.方法【’参数A’】 := ‘*****’ ;

实现代码如下 你敲好属性代码后  按 CTRL-C , DELPHI 会自动地 生成相应的 函数体 ，具体的代码 就还是靠 大家自己来实现了。

property VarReadOnly[ VarName : String]: Boolean read GetVarReadOnly write SetVarReadOnly ;

-------------------------------------------------------------------------------

下面这些代码只是DELPHI自动生成，具体实现方法就需要开发人员自己来填充了。

function TRMReport.GetVarReadOnly(VarName: String): Boolean;
begin

... ...
end;

procedure TRMReport.SetVarReadOnly(VarName: String; const VarValue: Boolean);
begin
... ...

end;