Объявление класса содержащего интерфейс



Листинг 10.2.Объявление класса, содержащего интерфейс

TEditor = class(TInterfacedObject, IEdit)
procedure Copy; stdcall;
procedure Cut; stdcall; procedure Paste; stdcall;
function Undo: Boolean; stdcall; end;

Как уже было отмечено выше, использование интерфейсов позволяет нескольким классам общаться с помощью общего интерфейса. При этом не обязательно наличие одного базового класса-предка. Следует помнить, что интерфейс — это тип с управляемым временем жизни, т. е. он автоматически при инициализации принимает значение nil, обладает счетчиком ссылок и автоматически уничтожается при выходе за пределы своей области видимости.

Содержание
Вперед


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