簡體   English   中英

我如何使用Delphi7處理類型(TList,類)的數組

[英]How do I work with an array of type (TList, class) with Delphi7

我有一個帶有變量的舊程序:

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?

提前致謝。

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM