unit A; interface type TObj1=object
procedure init; procedure done; private x,y:integer;
procedure Hidden;
end;
var AObj:TObj1;
implementation
............... begin
AObj.init;
AObj.x:=10; {здесь - можно} AObj.Hidden; end.
----------------------------- program My; uses A; begin
AObj.init;
AObj.x:=10; {а здесь так нельзя}
AObj.Hidden; end.
Объекттерді жадыда орналастыру
Бір класстың барлық экземплярлары үшін жады ӛріске ғана бӛлінеді.
Бір класстың барлық экземплярларының тәсілдері код сегментінде бір мәрте ғана жазылады, яғни, сол бір тәсіл берілген класстың барлық экземплярларына қызмет етеді. (Для всех экземпляров одного класса память выделяется только под поля.)
Объект экземпляры ӛз тәсілдеріне кӛрсеткішке ие емес (Бұған кейінірек тоқталамыз).
Достарыңызбен бөлісу: | 
