Delphi 6 программирование

       

Delphi 6 программирование



Глава 10

ВАРИАНТЫ

10.1. ОСНОВНЫЕ СВОЙСТВА ВАРИАНТА

Вариант (в Delphi 1 он отсутствует) - это тип variant, разработанный специально для тех случаев, когда на этапе компиляции программист не может сказать, какого типа данные будут использоваться в выражении или как параметры вызова подпрограмм. Переменная-вариант занимает в памяти дополнительные 2 байта, в которые помещается информация о действительном типе переменной. Эта информация позволяет компилятору создать код, который будет осуществлять необходимое преобразование типов на этапе прогона программы.

В переменную-вариант можно поместить:

  • целое или вещественное число;
  • логическое значение;
  • строку;
  • время и/или дату;
  • OLE-объект;
  • массив произвольной размерности и длины, содержащий элементы одного из перечисленных выше типов.


Варианты могут участвовать в целочисленных, вещественных, логических и время-дата выражениях при условии корректности соответствующих преобразований. Например, если варианту v присвоена строка '1.0', то выражение 1+v будет правильным вещественным значением 2,0. Однако если v := 'текст', выражение 1+v вызовет исключение EVariantError.

В Delphi определены такие константы, указывающие тип помещенных в вариант данных:

Таблица 10.1. Типы возможных значений варианта

Имя Константа Смысл
varEmp.ty $0000 Нет данных
varNull $0001 Неизвестный тип параметра
varSmallInt $0002 Целый тип Smallint
varlnteger $0003 Целый тип Integer
varSingle $0004 Вещественный тип Single
varDouble $0005 Вещественный тип Double
varCurrency $0006 Вещественный тип Currency
varDate $0007 Тип дата-время
varOleStr $0008 OLE-строка в кодировке Unicode
varDispatch $0009 Указатель на OLE-объект
varError $000А Код ошибки
varBoolean $000В Тип WordBool
varVariant $000С Тип Variant (только для вариантных массивов)
varUnknow $0011 Неизвестный OLE-объект
varByte $0100 Целый тип Byte
varString $0100 Строковый тип
varArray $2000 Вариантный массив
varByRef $4000 Указатель на данные

Структура вариантного типа описывается следующим образом:

TVarData = packed record

VType: Word;

Reservedly Reserved2, ReservedS: Word;

case Integer of

varSmallInt: (VSmallInt: Smallint);

varlnteger: (VInteger: Integer);

varSingle: (VSingle: Single);

varDouble: (VDouble: Double);

varCurrency: (VCurrency: Currency);

varDate:(VDate: Double) ;

varOleStr: (VOleStr: PWideChar) ;

varDispatch: (VDispatch: Pointer);

varError: (VError: WordBool);

varString: (VString: Pointer);

varArray: (VArray: PVarArray) ;

varByRef: (VPointer: Pointer);

end;

Как нетрудно убедиться, любая переменная вариантного типа представляет собой 16-байтную запись, содержащую 8-байтную вариантную часть, которая хранит либо собственно данные, либо их адрес (т. е. указатель на динамически размещ

К чему приводится Тип данных в варианте
varEmpty Целые Вещественные Дата-

Время

Строковые Логические
К дата- 'У: время 30.12.

1899 00:00:00

Преобразование в

Double

Преобразование в

Double

Без преобразования Преобразование в дату Преобразование в Double
К целым 0 Преобразование в соответствующий тип Округление

до ближайшего целого

Округление до ближайшего целого Преобразование в целый тип 0 для False,
иначе-1 (255 для

Byte)

.'К дата- 'У: время 30.12.1899 00:00:00 Преобразование в

Double

Преобразование в

Double

Без преобразования Преобразование в дату Преобразование в

Double

К строковым Пустая строка Преобразование в символьный вид Преобразование в символьный вид Преобразование в символьный вид Без преобразования '0'для False,'-!' для True
К логическим False False для 0, иначе

True

False для 0, иначе

True

False для 0, иначе

True

False для 'False' и для '0', иначе True Без преобразования

енные данные). В поле VType в момент создания варианта компилятор помещает, признак отсутствия данных varEmpty. В работающей программе значение этого поля меняется в соответствии с текущим типом данных, размещенных в вариантной части. Замечу, что программа не может получить прямого доступа к полям вариантной записи. Получить тип вариантных данных можно с помощью функции varType (см. ниже), а изменить тип - путем присваивания варианту нового значения.




Содержание
Вперед


Содержание раздела