Delphi 5. Справочник. Функции и процедуры

IV. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ПЕРЕМЕННЫМИ РАЗЛИЧНЫХ ТИПОВ ДАННЫХ

3. Функции и процедуры для работы с типом Variant.

Функция VarType( V: Variant ): Integer;

Модуль: System

Описание
Функция возвращает код определяющий тип Variant-переменной, соответствующий значению поля VarType записи TVarData. Результирующее значение кода состоит из одной или нескольких констант, объявленных в модуле System.

Значения констант представлены в следующей таблице:

Константа	Значение	Описание
varEmpty	$0000	Тип не определен (Unassigned).
varNull	$0001	Null
varSmallint	$0002	16-разрядное целочисленное значение со знаком (тип Smallint).
varInteger	$0003	32-разрядное целочисленное значение со знаком (тип Integer).
varSingle	$0004	Значение с плавающей запятой (тип Single).
varDouble	$0005	Значение с плавающей запятой (тип Double).
varCurrency	$0006	Значение с плавающей запятой (тип Currency).
varDate	$0007	Значение даты и времени (тип TDateTime).
varOleStr	$0008	Ссылка на динамически распределенную UNICODE-строку.
varDispatch	$0009	Ссылка на Automation-объект (интерфейсный указатель IDispatch).
varError	$000A	Значение кода ошибки операционной системы.
varBoolean	$000B	16-ти битовое значение булева типа (тип WordBool).
varVariant	$000C	Значение типа Variant.
varUnknown	$000D	Ссылка на неизвестный COM-объект (интерфейсный указатель IUnknown).
varByte	$0011	8-ми битовое беззнаковое целочислен-ное значение (тип Byte).
varString	$0100	Ссылка на динамически распределен-ную Pascal-строку (тип AnsiString).
varTypeMask	$0FFF	Маска значения типа переменной.
varArray	$2000	Бит, показывающий, что переменная является Variant-массивом.
varByRef	$4000	Бит, указывающий что переменная, скорее всего, содержит не само значение, а указатель.

Младшие двенадцать битов возвращаемого значения, соответствующие битовой маске varTypeMask, определяют тип Variant-переменной. Значение VarArray возвращается, когда переменная V является массивом. Значение VarByRef возвращается, если переменная V представляет собой ссылку на значение.
Изменить тип Variant-переменной можно с помощью функции VarAsType.

Пример
var
   V: Variant;
   T: Integer;
begin
   V:= True;
   T:= VarType(V);       // T:= 11   ($000B)
   MessageDlg( VarToStr(T), mtInformation, [mbOk], 0);
end;

[ Оглавление ]