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

546 Views Asked by At

I have an old programm with a variable:

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

I can store modules in a list:

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

but how can I read an element from the list

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

from the list?

And how can I pass the modul into function/procedure like this:

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; 

so that I can work with my modul and TObjectList?

Thanks in advance.

1

There are 1 best solutions below