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.
I found the following solution:
http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/Classes_TList_Add.html