Delphi数组定义问题

Question

  mapItem = class(TRemotable)
  private
    Fkey: Variant;
    Fvalue: Variant;
  published
    property key: Variant read Fkey write Fkey;
    property value: Variant read Fvalue write Fvalue;
  end;  Map        = array of mapItem;                 
  ArrayOf_xsd_anyType = array of Variant
////////////////////////////////////////////////
  我怎么来定一个变量 他的类型定义为Map 并给他赋值呢

Answer 1

好像不行，delphi中只有常量的数组可以定义时赋值

Answer 2

type
 TMap        = array of mapItem;   var
  map:Tmap;赋值需要循环 创建、赋值

Answer 3

//定义
var
  oMap: Map;//增加item
SetLength(Length(oMap)+1);
oMap[High(oMap)] := mapItem.Create;//释放
for I := Low(oMap) to High(oMap) do
  oMap[I].Free;
SetLength(oMap, 0);