Variant类型的用法!!!!!!!!

1.Variant类型的用法
   (数组)

    const 
        C_ROWS = 2;
    Var 
        vQtyParm : variant;
        nIndex:Integer;
      
    vQtyParm := VarArrayCreate([0,C_ROWS -1],varVariant);  //创建

    vQtyParm[0]:= VarArrayOf([ AQtyMode{自定义string类型}, '',  ''  ]); //赋值

 
//最后释放数组

Finalize(ASubDataBuff); //释放
  VarClear(ASubDataBuff); //清空数据缓冲区

然而，数组的列数 可以为N列 没有限制(相对的)。