PostHeaderIconDelphi. Функция VarArrayCreate( const Bounds: array of Integer; VarType: Integer ): Variant;

Функция VarArrayCreate( const Bounds: array of Integer; VarType: Integer ): Variant;

Модуль: System

Описание
Функция создает массив значений типа Variant. Границы размерностей массива определяются параметром Bounds, который должен содержать пары значений (нижняя и верхняя граница). Тип элементов массива указывается в параметре VarType, и должен соответствовать одному из значений поля TvarData.VarType (См. описание функции VarType), за исключением значений varArray, varByRef и varString. Для создания Variant-массива строк необходимо в параметре VarType указать значение varOleStr.

Если для элементов массива задан тип значе-ний varVariant, то они, в свою очередь, могут представлять собой Variant-массивы.

Пример
var
   S: string;
   Mas: Variant;
begin
   Mas:= VarArrayCreate([0, 3], varVariant);
   Mas[0]:= VarArrayHighBound(Mas, 1);
   Mas[1]:= 'Быть или не быть?';
   Mas[2]:= 12.34567;
   Mas[3]:= VarArrayOf( [7, 354, 0, 21, 66, 189] );
   S:= VarToStr( Mas[1] );       // S:= 'Быть или не быть?'
   S:= VarToStr( Mas[3][1] );     // S := 354
end;

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