PostHeaderIconDelphi. Функция VarArrayHighBound( const A: Variant; Dim: Integer ): Integer;

Функция VarArrayHighBound( const A: Variant; Dim: Integer ): Integer;

Модуль: System

Описание
Функция возвращает верхнюю границу указанного измерения (размерности) Variant-массива. Размерность определяется параметром Dim: первое измерение - 1, второе - 2 и т.д. Если параметр A не является Variant-массивом или задана не существующая размерность, то возникает исключение EVariantError.

Пример
var
   V: Variant;
   i, j : Integer;
begin
   V:= VarArrayCreate([1, 4], varVariant);
   V[1]:= 'Уходящей весне прокричал я вослед';

   V[2]:= 'Голубая, постой, отзовись!';
   V[3]:= 'Что же будет скажи через 1000 лет?';
   V[4]:= 'И она мне ответила - ЖИЗНЬ!';
   for i:= VarArrayLowBound(V,1) to VarArrayHighBound(V,1) do Memo1.Lines.Add(V[i]);
end;

 
Copyright © 2007-2010 IsIProg.ru. All Rights Reserved.