1.1.7. Массивы типаVariant

Переменным типа вариант нельзя присвоить значение обычного статического массива. Для этого существуют функции VarArrayCreate, VarArrayOf:

VarArrayCreate (const Bound: array of Integer,VarType: <тип>): Variant;

Bound- массив пар целых чисел, каждая пара определяет нижнее и верхнее значение индекса одной размерности массива.

VarType- тип массива, равный константам с результатом работы функцииVarType(п.1.1.6), кромеVarString,varArray,varRef.

Пример создания массива типа Variant из 6 целых чисел:

VarV:Variant; //объявление переменной типаVariant

V:=VarArrayCreate([0,5],varInteger); //создание массива

Пример создания массива типа Variant из 3 значений типа Variant:

VarM:Variant; //объявление переменной типаVariant

M:=VarArrayCreate([0,2],varVariant); //создание массива

M[0]:=’Иванов И.И.’;M[1]:=’04.05.70’;M[2]:=True; //присвоение значений

VarArrayOf(const Values: array of Variant): Variant;

Values- массив задает число и значения элементов в создаваемом массиве.

Пример. Продолжим предыдущий пример и создадим одномерный массивM[2] из четырех значений: 1,’Факт’, 12, 13:

M[2]:=VarArrayOf([1,'Факт',12,13]); //создание массива M[2] из 4 элементовLabel3.caption:=m[2][2]; //вывод третьего значения 12 в метку Label3

Рассмотрим и другие полезные функции (п. 3.8).

VarArray Low/High Bound(x:Variant,N) ‑ возвращает нижнюю/верхнюю границу аргумента.

VarIsArray(x:Variant)‑ возвращаетTrue, если аргумент является массивом типаVariant.

VarIsNull(x:Variant)‑ возвращаетTrue, если аргумент равенNull(пустой).

1.1.8. Указатели

Указатель ‑ переменная, которая содержит значение адреса неко­торой другой переменной, структуры или объекта.

Типизированный указатель объявляется следующим образам:

Type< имя типа указателя> = ^ < идентификатор типа данных>;

Var<имя переменной ‑ указателя : <имя типа указателя>; или

Var<имя переменной ‑ указателя : ^ <идентификатор типа данных>.

При объявлении вместо ^<типа указателя> можно использовать специально определенные для указателей типы:

Pointer- нетипизированный указатель, который может указывать на данные любого типа (Varb:Pointer).

PAnsiString, PString - указатель на данные типа AnsiString (Var s: Pstring).

PCurrency (Currency), PExtended (Extended), POleVariant (OleVariant), PShortString (ShortString), PTextBuf (TextBuf), PVarRec (VarRec), PVariant (Variant), PwideString (WideString).

PbyteArray(ByteArray) иPwordArray(TwordArray) для доступа к динамически размещаемым массивам.

При объявлении указателя ему присваивается значение именованной константы Nil, которая является признаком того, что указатель ни на что не указывает. Над указателем можно делать только операции сравнения на равенство и неравенство.

Если в выражении символ «^» находится справа от указателя, то это ‑ опе­­­рация разадресации: берется значение по этому адресу.

Запись вида @<переменная> илиAddr(<переменная>) означает взятие адреса указанной переменной.

Пример:

Type tu = PInteger; //объявление типа указателя, можно и TU=^Integer

Var a : tu ; z1, z2: Integer; //объявление указателя Aи переменных

Begin z1:=100; a:=Addr(z1); // можно A:=@Z1, адрес Z1 помещается вA

z2:=a^; //z2:=z1, т.е. z2=100.

End;

Обычно указатели используют для формирования динамических структур типов очередей, списков, стеков, когда число элементов этих структур заранее не известно (п.1.9).