10.4.
ВАРИАНТНЫЕ МАССИВЫ
Значением
варианта может быть
массив данных, такие варианты называются вариантными массивами. (Не путайте
с обычным или динамическим массивом,
элементами
которого являются варианты!)
Значениями элементов вариантного массива могут быть любые допустимые для варианта
значения, кроме строк varstring. Значениями элементов вариантного массива могут
быть и варианты, а это значит, что в таком массиве могут одновременно храниться
данные разных типов (и в том числе строки). Например:
var
V: Variant;
begin
//
Создаем одномерный
вариантный массив с 5 элементами:
V := VarArrayCreate([0,
4], varVariant);
//
Наполняем его:
V[0] := 1;
//Тип целый
V[1] := 1234.5678;
//Тип
вещественный
V[2] := 'Hello world';
//Строковый
тип
V[3] := True;
//Логический
тип
//Пятым элементом исходного
массива сделаем еще один массив:
V[4] := VarArrayOf([1, 10,
100, 1000]);
Caption := V[2];
//Hello
world
IbOutput.Caption := IntToStr(V[4][2]);
//200
end;
Все действия с вариантными массивами
осуществляются с помощью следующих процедур и функций:
Таблица 10.3. Подпрограммы
для работы с вариантными массивами
|
function VarArrayCreate(const
Bounds: array of Integer; VarType:
Integer): Variant;
|
Создает вариантный массив из
элементов типа VarType с количеством и границами измерений, указываемых
параметром Bounds
|
|
function VarArrayDimCount(const
A: Variant): Integers;
|
Возвращает количество измерений
вариантного массива А или 0, если А не массив
|
|
function VarArrayHighBound(const
A: Variant; Dim: Integer):
Integer;
|
Возвращает верхнюю границу
индекса вариантного массива А по измерению Dim
|
|
function VarArrayLock(var A:
Variant): Pointer;
|
Блокирует массив (предотвращает
его возможные изменения размеров) и возвращает указатель на связанные
с ним данные
|
|
function VarArrayLowBound(const
A: Variant; Dim: Integer):
Integers;
|
Возвращает нижнюю границу индекса
вариантного массива А по измерению Dim
|
|
function VarArrayOf(const Values:
array of Variant): Variants;
|
Создает одномерный вариантный
массив по перечню значений, содержащихся в открытом массиве Values. Нижняя
граница индексов вариантного массива в этом случае равна 0
|
|
procedure VarArrayRedim(var
A:
Variant; HighBound: Integer)
;
|
Изменяет верхнюю границу индекса
вариантного
массива А на величину HighBound.
Вызов про
цедуры игнорируется, если массив
был заблоки
рован функцией VarArrayLock
|
|
function VarArrayRef(const
A:
Variant): Variants;
|
Возвращает ссылку на вариантный
массив. Ис
пользуется при обращении к
API-функциям
|
|
procedure VarArrayUnlock(var
A:
Variant)
|
Отменяет действие функции VarArrayLock
|
