BorlandTalk.com

Ian Boyd · Guest

i need to iterate over each dimension, each element of a multi-dimensional
variant array.

procedure IterateArray(v: Variant);
var
dim, element: Integer;
begin
for dim := 1 to VarArrayDimCount(v) do
for element := VarArrayLowBound(v, dim) to VarArrayHighBound(v, dim)
do
begin
//dim and element are now an dimension and element

//But the syntax:
DoSomething(v[dim][element]);
//is not correct
//but i want
v[dimension][elementOfThatDimension]

}

//Is
_VarArrayGet(v, dim, element);

//what i want, even though it's hidden inside System.pas?
//i can't tell if it's using Dimension/Element
end;
end;