想问一个关于类中放RECORD类型的问题.

Question

//类的定义
  type
  TModuleList = Record
    Name, Path, Version : string;
  end;
  RModuleList = array of TModuleList;  TSystem = class(TInterfacedObject, ISystem)
  private
    FModuleList : RModuleList;//动态创建    function GetModuleList(): RModuleList;
    procedure SetModuleList(AModuleList: RModuleList);  protected
    property ModuleList: RModuleList Read GetModuleList Write SetModuleList;//实现
...
uses
  类名.pas
var
  ModulesCount, i: integer;//模块数量
  MyModuleList : RModuleList;
begin
  ModulesCount := 3;
  SetLength(IMySystem.ModuleList,ModulesCount);
  for i := Low(MyModuleList) to high(MyModuleList) do
  begin
    MyModuleList[i].Name := 'Customer';
    MyModuleList[i].Path := 'C:\a';
    MyModuleList[i].Version := '1.0.0.0';
  end;  IMySystem.ModuleList := MyModuleList;//这一行有问题,请问我该怎么做呢?谢谢

Answer 1

类中属性的实现:
function TSystem.GetModuleList(): RModuleList;
begin
  Result := FModuleList;  
end;procedure TSystem.SetModuleList(AModuleList: RModuleList);
begin
  FModuleList := AModuleList;
end;其中,IMySystem是接口