PROPERTY [ READ ] Identifier AS Datatype
Это декларирует свойство класса.
Если задано ключевое слово READ
, тогда свойство будет
только для чтения.
Когда объявлено, свойство должно быть implemented (реализовано) : вы должны написать функцию для чтения свойства, и, если оно не только для чтения, функцию для записи свойства.
Имя функции read - это имя свойства со следующим подчеркиванием и текстом "Read". Эта функция не принимает аргументы и должна вернуть данные, чей тип тот же, что и тип данных свойства.
Имя функции write - это имя свойства со следующим
подчеркиванием и текстом "Write". Эта функция - процедура, которая
ничего не возвращает, и которая принимает только один аргумент, чей тип
тот же, что и тип данных свойства.
PROPERTY Enabled AS Boolean
PROPERTY READ Handle AS Integer
...
PRIVATE $bEnabled AS Boolean
PRIVATE $iHandle AS Integer
' Implements the Enabled property
FUNCTION Enabled_Read() AS Boolean
RETURN $bEnabled
END
SUB Enabled_Write(bEnabled AS Boolean)
$bEnabled = bEnabled
UpdateEverything
END
' Implements the Handle property
FUNCTION Handle_Read() AS Integer
RETURN $iHandle
END