首页 > 代码库 > Delphi 变体数组

Delphi 变体数组

Format 函数

 Delphi 支持“开参数”和动态数组,变体数组,使用时的语法类似 Delphi 中的集合:采用两个方括号把不同类型的变量括起来(这太方便了啊),也可以采用声明一个 TVarRec 类型的数组来容纳不同的类型变量(具体请参阅其帮助文档)

Format函数声明比较

function Format(const Format: string; const Args: array of const): string; overload;

 extern DELPHI_PACKAGE UnicodeString __fastcall Format(const UnicodeString Format, TVarRec const *Args, const int Args_High)/* overload */;

C++Builder 中,没有像 Delphi 中的那中语法特性,BCB 中的 Format 函数其第一个参数与 Delphi 的 Format
是类似的(一个格式化描述字符串),而后面有两个参数,第二个参数是一个 TVarRec
类型的数组指针,第三个参数是这个数组的最后一个元素的索引值!因为 C++
不支持动态数组语法,也没有什么“开参数”之类的怪异特性,所以当你传递数组时,你必须同时传递数组的大小(Format
要求的是数组的最后一个元素的索引值,因此大同小异)。刚才我说过,在 Delphi 中也可以用 TVarRec
数组代替方括号的方法,其实本质是一样的。当然了,在 C++Builder 中,我们没有必要在每次使用 Format 函数时都先声明一个
TVarRec 数组,然后再把要用于输出的变量赋给 TvarRec 数组的每一个元素,最后还要传递 TVarRec
数组的最后元素索引。其实,我们可以使用一个 C++Builder 预先声明好的宏 ARRAYOFCONST,直接传入要格式化输出的变量

Format(
"My name is %s, I‘m %d years old.",
ARRAYOFCONST(("Phoenix2000", 22)) //注意两个括号
);

FDQuery1.Open函数声明比较

procedure TFDRdbmsDataSet.Open(const ASQL: String; const AParams: array of Variant);

  FDQuery1.Open(‘select * from tt where id=:id‘,[0]);

 

 HIDESBASE void __fastcall Open(const UnicodeString ASQL, Variant const *AParams, const int AParams_High)/* overload */;

TCustomDataSet.Locate函数声明比较

Delphi

function Locate(const KeyFields: string; const KeyValues: Variant;  Options: TLocateOptions): Boolean; override;

  CustTable.Locate(‘Company;Contact;Phone‘, VarArrayOf([‘Sight Diver‘, ‘P‘, ‘408-431-1000‘]), [loPartialKey]);

C++

virtual bool __fastcall Locate(const UnicodeString KeyFields, const Variant &KeyValues, TLocateOptions Options);
TLocateOptions Opts;Opts.Clear();Opts << loPartialKey;Variant locvalues[3];locvalues[0] = Variant("Sight Diver");locvalues[1] = Variant("P");locvalues[2] = Variant("408-431-1000");CustTable->Locate("Company;Contact;Phone", VarArrayOf(locvalues, 2), Opts);

 

Delphi 变体数组