本文整理自网络,侵删。
变体数组
var
Arr: array[0..3] of Variant;
begin
Arr[0] := 123;
Arr[1] := 'wy';
Arr[2] := True;
Arr[3] := VarArrayOf([1,'wanyi',1.5]); //变体数组的元素也可以是变体数组
ShowMessage(Arr[0]); //123, 不需要转换
ShowMessage(Arr[1]); //wy
ShowMessage(Arr[2]); //True
ShowMessage(Arr[3][1]); //wanyi
end;
相关阅读 >>
Delphi xe 启动关闭start page 页错误提示
Delphi 把exe嵌入到自己的exe中。Delphi xe3
Delphi 使用firedac的tfdscript组件执行文件中描述的sql语句
更多相关阅读请进入《Delphi》频道 >>