delphi 变参函数：array of const

最新推荐文章于 2020-05-06 17:42:26 发布

_昵称将在全站显示_

最新推荐文章于 2020-05-06 17:42:26 发布

阅读量1.2k

点赞数

分类专栏： DELPHI 文章标签： delphi integer string function constructor reference

本文链接：https://blog.csdn.net/delphi_csdn/article/details/4321671

版权

这是一个关于如何在Delphi中使用变参函数array of const来处理并转换不同类型的参数（如integer, string, boolean等）的示例。通过这个函数，可以将各种类型的数据转化为字符串并拼接。例如，`MakeStr(['test', 100, ' ', True, 3.14159, TForm])`会返回字符串"test100 T3.14159TForm"。" 121547683,9853451,Python操作Redis列表List详解,"['database', 'redis', 'nosql', '数据操作']

摘要由CSDN通过智能技术生成

array of const

Delphi的Format函数大家都用得很多，第二个参数用着确实很方便。最近在数据库开发应用中需要自己创建一个带array of const参数的函数，对于常用的类型String,Integer,Pointer处理都没什么问题，但当用到Widestring类型时却出错，摸索了一上午，感觉获益良多。现在将问题、解决问题的思路、分析方法等一一道来，希望对诸君有所启发就达到了我写这篇文章的目的了！

环境：Winxp + D7
进入D7，在默认的新建工程中增加一过程Test(m: Array of const);
procedure TForm1.test(m: array of const);
var
i, zero: Integer;
s, t: String;
c: Char;
const
sBoolean: Array [Boolean] of string = ('False', 'True');
begin
s := '';
for i := 0 to High(m) do with m[i] do
    case VType of //写到这，按住Ctrl点击VType，打开System单元，将VType的枚举值贴到Case语句
      vtInteger:    (VInteger: Integer; VType: Byte);
      vtBoolean:    (VBoolean: Boolean);
      vtChar: