请高手指导，我想实现下面一个动态数组，请问下面代码该怎样写？

Question

用 VarArrayRedim(A: Variant; HighBound: Integer)应该可以吧！我也没有用过

Answer 1

GetNextData:=VarArrayCreate([0,OWADOQueryMS.FieldCount-1],VarVariant);
GetNextData[0]:=VarArrayof(['StockPackID','租用合同编号',PackNumber,Protect,'true']);
GetNextData[1]:=VarArrayof(['GuestID','客户代码','',NeedData,'true']);
GetNextData[2]:=VarArrayof(['StorageID','仓库代码',' ',NeedData,'false']);
GetNextData[3]:=VarArrayof(['GoodsID','货品代码','',1,'false']);就这样赋值

Answer 2

GetNextData:=VarArrayCreate([0,OWADOQueryMS.FieldCount-1],VarVariant);
GetNextData[0]:=VarArrayof(['StockPackID','租用合同编号',PackNumber,Protect,'true']);
GetNextData[1]:=VarArrayof(['GuestID','客户代码','',NeedData,'true']);
GetNextData[2]:=VarArrayof(['StorageID','仓库代码',' ',NeedData,'false']);
GetNextData[3]:=VarArrayof(['GoodsID','货品代码','',1,'false']);就这样赋值

Answer 3

回复xxmmmx(踢踏)及各位高手　
如果动态给A[1][0] 赋值该怎样写？;

Answer 4

-------->>>>>>>>>>>---------->>>>>>>>>>
超频关注

Answer 5

上面的赋值语句已经动态赋值了
GetNextData[0][0]='StockPackID'
GetNextData[0][1]='租用合同编号'
......

Answer 6

上面的赋值语句已经动态赋值了
GetNextData[0][0]='StockPackID'
GetNextData[0][1]='租用合同编号'
......

Answer 7

动态数组可以用一下方法实现,请看例子：type
  PByteArray=^TByteArray;
  TByteArray=array[0..0]of byte;//下标不具体赋值var
  TempByteArrayP:PByteArray;  //分配内存(1000个Byte类型值所需的内存空间)
  TempByteArrayP:=AllocMem(1000*Sizeof(Byte));  for i:=0 to 999 do
    Begin
      TempByteArrayP^[i]:=random(255);
      ...
    end;  //释放内存
  FreeMem(TempByteArrayP);