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;

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

提前致谢。

Answer 1

我找到了以下解决方案：

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

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

1 个答案: