Описание
Функция возвращает код определяющий тип 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;
