0

私は変数を持つ古いプログラムを持っています:

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 を操作できるようにするにはどうすればよいですか?

前もって感謝します。

4

1 に答える 1

0

次の解決策を見つけました。

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

于 2016-07-15T13:21:12.790 に答える