VarArrayCreate

OleVariant v;

v = VarArrayCreate(OPENARRAY(int,(0,vQuestionCount-1)),varOleStr);

v.PutElement(str,vqi++);

vTmp := Unassigned; //释放

 

 

1. // VarArrayLowBound(const A: Variant; Dim: Integer) Dim需要大于0,小于数组最大值 反之为无效索引 用去遍历矩阵列数组
2. //那一级的最低值 2 级最低值
3. ShowMessage(values[VarArrayLowBound(values,2),1]);
4. //那一级的最高值 2 级最高值
5. ShowMessage(values[VarArrayHighBound(values,2),1]);

 

VarArrayDimCount

for (int i = VarArrayLowBound(array, 1); i <= VarArrayHighBound(array, 1); i++)
	{
		// Put the element I at index I.
		VarArrayPut(array, i, &i, 0);
	}



 VarArrayGet(array, &i, 0)