Функция VarArrayDimCount( const A: Variant ): Integer;
Модуль: System
Описание
Функция определяет количество измерений (размерностей) массива значений типа Variant. Для одномерного массива функция возвращает 1, для двумерного - 2 и т.д. Если A не является Variant-массивом, то функция возвращает 0.
Пример var
I: Byte;
V: Variant; begin
...
I:= VarArrayDimCount(V); If I<>0 then
MessageDlg( 'Размерность массива:'+ IntToStr(I), mtInformation, [mbOk], 0) else
MessageDlg( 'Переменная не является Variant-массивом', mtInformation, [mbOk], 0); end;