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,Dataset.FieldCount);

    for k := 0 to Dataset.FieldCount - 1 do

    begin

       sValue := jf.AsObject.GetValues.AsArray[k].AsString;  //取DATA节点下的字段值

       param[K].VType:=vtPWideChar;

       param[K].VPWideChar:=PChar(sValue);

     // Dataset.FieldByName(ColList[k]).AsString := sValue;

     // Dataset.Fields[k].Value:=sValue;                        //上下两种速度是一样的

    end;

    Dataset.AppendRecord(param); 

————————————————

原文链接：https://blog.csdn.net/wh445306/article/details/102330687