Delphi array of TVarRec类型使用方法

array of TVarRec  //代表传递的动态数组中元素的类型可变,数组大小可变个数可变，网上这个真找不到可以使用的教程。自己摸索了很久才找到了使用方法。

正常都是像下面这样手工添加

Dataset.AppendRecord([1, '张三', 33, True]);

如果要自动添加要怎么操作，查了一下AppendRecord的参数是（TVarRec[]）

const Values: array of const

const Values: array of TVarRec

 

TVarRec 可变类型可变长度 参数。

用法如下：

var

  param:array of TVarRec; 

SetLength(param,4);
 param[0].VType:=VTInteger;
 param[0].VInteger:=18;
 param[1].VType:=vtPChar;
 param[1].VpChar:=PAnsiChar('TestBinary');
// param[2].VType:=VtInteger;
 param[2].VInteger:=288;
 param[3].VType:=VtBoolean;
 param[3].VBoolean:=FALSE;

dsTemp.AppendRecord(param);

循环体中用法：

var
  param: array of TVarRec; 
--------------------------------------
   SetLength(param,Dat