arrays - 如何使用 Delphi7 处理类型数组（TList，类）

Question

我有一个带有变量的旧程序：

Modul : array[1..4] of array[0..5] of array[1..3] of TModul;

我可以将模块存储在列表中：

procedure Test;
var
  List: TList;
  PModul: Pointer;
begin
  PModul := Addr(Modul);
  List:= TList.Create;
  List.Add(PModul);
  //... 
  List.Free;
end;

但我怎样才能从列表中读取一个元素

? := Modul[x,y,z].MeasValue.Value[i];

从列表中？

以及如何将模块传递给函数/过程，如下所示：

TTest=class(TObject)
  private
    FModul: TModul;
    function GetModul: TModul;
    procedure SetModul(const Value: TModul); // it isnt't work
  public
    property Modul: TModul read GetModul write SetModul;
 end; 

这样我就可以使用我的模块和 TObjectList 了吗？

提前致谢。

Answer 1

我找到了以下解决方案：

http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/Classes_TList_Add.html