размерность варианта-массива

[Solana]

Что-то не пойму как увеличить размерность варианта-массива

Код: Выделить всё

var Data:OleVariant;
begin
 Data:= VarArrayCreate([1,1,1,1],VarVariant);
 VarArrayRedim(Data,5);
end;

Это получится массив размером [1,1,1,5]
А как получить массив размером [1,3,1,5]?

[Eugie]

Для многомерного массива VarArrayRedim меняет только верхнюю границу самой правой размерности, поэтому нужно сразу создавать массив нужной размерности:

Код: Выделить всё

VarArrayCreate([1,3,1,5],VarVariant);

[Solana]

Спасибо! Видимо, придется так и поступить. Но будет не красиво.