Методы в Object Pascal. Семенов Н.М. - 8 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

8
function GetAuthor : TAuthor;
procedure SetAuthor (const AnAuthor : TAuthor);
function GetTitle : String;
procedure SetTitle (ATitle : String);
end;
Теперь в классе TBook объявляются конструктор Create и деструктор Destroy, которые
могут использоваться соответственно для создания и уничтожения представителей этого класса.
Обратите внимание на ключевое слово ”override”, стоящее после объявления деструктора
Destroy. Это слово нужно указывать всякий раз, когда объявляется деструктор с названием
Destroy. Это слово разрешает выполнение предусмотренных по умолчанию действий для
уничтожения экземпляра объекта в том случае, если при его создании возникает какая-либо
ошибка.
Для начала деструктор Destroy всегда объявляйте как не имеющий параметров, а за его
объявлением всегда должно следовать ключевое слово override:
destructor Destroy ; override;
1.4 Классовые процедуры и функции
В языке Object Pascal можно объявлять классовые методы. Наиболее существенное
отличие обычных методов класса от классовых методов заключается в том, что для вызова
классового метода не требуется действительный представитель класса.
Классовые методы объявляются точно так же, как и обычные методы, но только перед их
объявлением ставится зарезервированное слово class:
type
ИмяКласса = class (ИмяРодителя)
. . .
class procedure ИмяМетода(<Список параметров>);
. . .
end;
Рассмотрим пример:
type
TDataList = class(TPersistent)
. . .
class procedure FreeAll;
class procedure SetDelimiter(ASymbol : Char);
. . .
end;
Общий синтаксис объявления классовой функции следующий:
type
ИмяКласса = class (ИмяРодителя)
. . .
class function ИмяМетода(<Список параметров>): Возвращаемый Тип;

Страницы