logo
Конспект лекций по КИТ

Инструкция Def Тип

Инструкция DefТип (вместо тип в имени инструкции фигурируют буквы, обозначающие конкретный тип данных) используется на уровне модуля для задания типа данных по умолчанию для переменных, аргументов, переда­ваемых в процедуры, и значений, возвращаемых процедурами- Function и Property Get, имена которых начинаются с соответствующих символов.

Синтаксис:

DefBool ДиапазонБукв[, ДиапазонБукв]...

Тип данных Boolean

DefByfe ДиапазонБукв[, ДиапазонБукв]...

Тип данных Byte

DefInt ДиапазонБукв[, ДиапазонБукв]...

Тип данных Integer

DefLng ДиапазонБукв[, ДиапазонБукв]...

Тип данных Long

DefCur ДиапазонБукв[, ДиапазонБукв]...

Тип данных Currency

DefSng ДиапазонБукв[, ДиапазонБукв]...

Тип данных Single

DefDbl ДиапазонБукв[, ДиапазонБукв]...

Тип данных Double

DefDate ДиапазонБукв[, ДиапазонБукв]...

Тип данных Date

DefStr ДиапазонБукв[, ДиапазонБукв]...

Тип данных String

DefObj ДиапазонБукв[, ДиапазонБукв]...

Тип данных Object

DefVar ДиапазонБукв[, ДиапазонБукв]...

Тип данных Variant

Аргумент ДиапазонБукв имеет следующий синтаксис:

Буква1[-Буква2]

Аргументы Буква1 и Буква2 указывают границы диапазона имен, для кото­рых задается тип данных по умолчанию.

В следующем примере инструкция устанавливает, что все переменные с име­нами, начинающимися с букв из диапазона от А до Q, имеют строковый тип:

DefStr A-Q

Инструкция Def Тип действует только на модуль, в котором она используется.

При указании диапазона букв обычно определяется тип данных по умолча­нию для переменных, которые начинаются с первых 128 символов набора. Однако при указании диапазона A—Z задается тип данных по умолчанию для всех переменных, включая те, что начинаются с международных симво­лов из расширенной части набора (128-255).

Еще одним способом задания типа переменной по умолчанию является включение в конец имени специального символа, устанавливающего тип переменной. Допустимо использование следующих специальных символов для установки типов.

%

Integer

&

Long

!

Single

#

Double

@

Currency

S

String