Модуль: 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;