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 (см. ниже), а изменить тип - путем присваивания варианту нового значения.
| Содержание
|
Вперед
|
