OleVariant v;
v = VarArrayCreate(OPENARRAY(int,(0,vQuestionCount-1)),varOleStr);
v.PutElement(str,vqi++);
vTmp := Unassigned; //释放
- // VarArrayLowBound(const A: Variant; Dim: Integer) Dim需要大于0,小于数组最大值 反之为无效索引 用去遍历矩阵列数组
- //那一级的最低值 2 级最低值
- ShowMessage(values[VarArrayLowBound(values,2),1]);
- //那一级的最高值 2 级最高值
- 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)