Документация по Clarion

       

LIKE (определяемые пользователем типы данных)


новое_описание LIKE(выглядит_как)[,DIM()][,OVER()][,PRE()][,NAME()]
новое_описание - Метка
описания нового типа данных.
выгдядит_как - Метка описания
элемента данных, чье
определение будет
использовано.
LIKE говорит компилятору
определить новое_описание
используя то же описание, что и
для выглядит_как, включая все
атрибуты.
Новое_описание может


использовать атрибуты DIM и OVER.
Если выглядит_как имело
атрибут DIM, то новое_описание
сразу будет массивом. Если в
будущем атрибут DIM добавится к
новому_описанию, то
размерности массива
определятся в будущем (???).
Атрибуты PRE и NAME могут быть
использованы, если надо. Если
выглядит_как уже имеет эти
атрибуты, новое_описание
унаследует их и может привести
к ошибке компилятора. Чтобы
исправить это положение, задай
принудительно PRE или NAME для
нового_описания, чтобы
перекрыть унаследованный(е)
атрибут(ы).
Пример:
Amount REAL !Описываем поле
QTDAmount LIKE(Amount) !Используем то же описание
YTDAmount LIKE(OTDAmount) !И еще раз
MonthlyAmts LIKE(Amount),DIM(12) !То же описание, но для массива
!из 12 элементов
AmtPrPerson LIKE(MonthlyAmts),DIM(10)
!То же описание, но уже для 120 элементов (12,10)
Construct GROUP,PRE(Con) !Описываем группу
Fieldl LIKE(Amount) ! con:field1 - real
Field2 STRING(10) ! con:field2 - string(10)
.
NewGroup LIKE(Construct),PRE(New)!Описываем новую группу с
! new:field1 - real
! new:field2 - string(10)
AmountFile FILE,DRIVER('Clarion'),PRE(Amt)
Record RECORD
Amount REAL !Define a field
OTDAmount LIKE(Amount) !Use same definition
. .
См. также: , , ,



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