Справочник по Delphi

VarIsArray, функция

Синтаксис


function VarIsArray(const V: Variant):  Boolean;

Описание

Функция VarIsArray возвращает истину, если Variant V является массивом, и ложь - в противном случае. Массив Variant имеет установленный бит varArray в поле VarType.
VarIsArray - настоящая функция.

Ошибки

Советы и приемы

Пример


// Возвращает сумму всех чисел одномерного массива, или, если
// аргумент не является массивом, возвращает его числовое
// значение.
function Sum(const V: Variant): Variant;
var
  I: Integer;
begin
  if VarIsArray(V) then
  begin
    Result := 0.0;
    Assert(VarArrayDimCount(V) = 1);
    for I := VarArrayLowBound(V,  1) to VarArrayHighBound(V,  1) do
      Result  := Result + V[I];
  end
  else
    Result  := V + 0.0;  // Для того,   чтобы результат был
                         // числовым.
end;

Смотрите также

Функции VarArrayCreate, VarArrayDimCount, VarArrayHighBound, VarArrayLock, VarArrayLowBound, VarArrayOf, VarArrayRef, VarArrayUnlock, VarType, процедура VarArrayRedim.

Учебник по языку Pascal Лабораторные работы по программированию Справочник

Нет комментариев.

Оставить комментарий: