盒子论坛 v2.1

我有一个软件的源码，是在delphi5下面做的.
我把它放在DELPHI6下运行，发现有两个函数运行不了。
这两个函数是：
VarArrayOf，VarIsNull
后来我在 uses 里面加入 Variants 就可以编译了。

这两个函数，我好像不常见，谁能够结合实例讲一下用法

----------------------------------------------
青云论坛

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/1/28 2:20:50

1楼：

打开你的程序
吧光标定位在VarArrayOf或VarIsNull上
按下F1
ok

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/1/28 13:14:05

2楼：

Unit

Variants

Category

Variant support routines

extern PACKAGE bool __fastcall VarIsNull(constVariant V);

Description

VarIsNull returns true if the given variant contains the value Null. If the variant contains any other value, the function result is false.

Note: Do not confuse a Null variant with an unassigned variant. A Null variant is still assigned, but has the value Null. Unlike unassigned variants, Null variants can be used in expressions and can be converted to other types of variants.
----------------------------------------------

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/1/28 13:14:55

3楼：

Unit

Variants

Category

Variant support routines

extern PACKAGE Variant __fastcall VarArrayOf(constVariant * Values, const int Values_Size);

Description

VarArrayOf returns a one-dimensional variant array with the elements given by the Values parameter. Values_Size indicates the index of the last value in the Values array (one less than the number of values).

The low bound of the returned array is zero, the high bound is Values_Size, and the element type is Variant.
----------------------------------------------

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/1/28 13:16:46

4楼：

Variant A = VarArrayCreate(Bounds,1, varVariant);
A.PutElement(1,0);
A.PutElement(1234.5678,1);
A.PutElement("Hello world",2);
A.PutElement(true,3);
Variant A4values[3];
A4values[0] = 1;
A4values[1] = 10;
A4values[2] = 100;
A.PutElement(VarArrayOf(A4values,2),4);
----------------------------------------------

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/1/28 13:18:43

5楼：

2.4 Variant 数组
目的：如何使用Variant 数组；
Variant：
一种可以拥有各种数据类型；
也可以告诉目前存储的数据是什么类型(通过使用VarType函数)；
可以给相同的Variant分配不同的数据类型，只要Variant包含数字值就可以执行算法；

variant数组只不过是variant型的数组，不必包含同类型的数据；　
variant数组的创建方法：
function VarArrayCreate(const Bounds: array of Integer; VarType: integer): variant;
Bounds: 告诉数组的上下界；
VarType: 决定了数组的中存储什么类型的数据。

例如：创建数组的数组, 可以模仿任何类型的数据结构类型：
VarArrayX := VarArrayCreate([1,10], varVariant);
数组的单个元素可以装载一个数组： VarArrayX[1] := VarArrayCreate([1,5], varVariant);
function VarArrayOf(const Values: array of Variant): Variant;
运行时用于创建一维数组；
可以创建全异的数值数组；
例如： MyArray := VarArrayOf(['李维'， 30， '60', 60.369, 'China']);

使用Variant数组：与使用标准Delphi数组类似；
VarArrayLowBound、VarArrayHighBound(与数组的low、high类似)计算边界;
VarArrayDimCount：计算数组的维数；

----------------------------------------------

作者：

qingyun (qingyun)	★☆☆☆☆	-
	盒子活跃会员

2004/1/28 17:55:58

6楼：

http://www.delphibbs.com/delphibbs/DispQ.asp?LID=2423971
----------------------------------------------
青云论坛

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/1/28 19:52:34

7楼：

晕你想干什么！
----------------------------------------------

信息

登陆以后才能回复