Delphi array of TVarRec类型使用方法

最新推荐文章于 2024-05-22 12:10:28 发布

原创

最新推荐文章于 2024-05-22 12:10:28 发布 · 1.6k 阅读

标签

#可变类型可变长参数 #TVarRec #array of TVarRec #AppendRecord

收录于

本文介绍了Delphi编程中array of TVarRec类型的使用方法，这种类型允许元素的类型和数量可变。通常用于 Dataset.AppendRecord 的参数，例如 Dataset.AppendRecord([1, '张三', 33, True])。但如何在循环中自动添加记录可能不太直观，因为AppendRecord接受TVarRec数组。通过TVarRec的可变类型特性，可以在循环体内灵活处理数据并调用AppendRecord。" 111283514,10294864,深度学习在基因组学中的应用与挑战,"['深度学习', '生物信息学', '基因组分析', '神经网络', '机器学习']

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
       s