Объекты

Объект можно рассматривать как конструкцию, описывающую абстрактные структуры данных в программе. Введение объектов в язык программирования означает достаточно радикальные изменения в самом подходе к программированию.

Объект – это структура, включающая в себя взаимосвязанные данные различных типов и использующие эти данные процедуры и функции.

Схематично объект можно представить так ------------------>

С формальной точки зрения объект напоминает записный тип (record).

Type

T=record

данные

end;

Пример описания объекта:

Type

TO=object

Field1: тип;

Field2:тип;

…

procedure Proc1(p1,p2:тип);

function Fnc1: real;

end;

------------------------

{тела процедур и ф-ций выносятся из объектного типа}

procedure TO.Proc1(p1,p2:тип);

begin

…

end;

function TO.Fnc1: real;

begin

…

end;

Процедуры и функции объекта могут работать только с внутренними данными объекта. Объект хорошо приспособлен для абстрактного представления данных.

Методы объекта получают при вызове неявный параметр self (это ссылка на объект), через который удаётся адресоваться к внутренним данным объекта. Параметр self в проблемных ситуациях (конфликт имён) может использоваться явно. Наличие этого параметра отличает такие процедуры и ф-ции от обычных.

…

var {статический объект}

MyObject: TO;

…

MyObject.Proc1(p1,…);

a:=MyObject.Fcn1;

Объект может быть как статическим так и динамическим:

var {динамический объект}

MyObject: TO;

MyDynaObj: ^TO;

…

New(MyDynaObj); {создание экземпляра объекта}

MyDynaObj^.Proc1(p1,…); {работа с экземпляром объекта}

Dispose(MyDynaObj); {удаление экземпляра объекта}

Пример описания объекта и его использование:

program ObjTest;

const StackSize = 100;

type

NameStr = string[15];

Student = record

Name: NameStr;

Mark: integer;

end;

Stack = object {начало описания объекта типа Stack}

List: array[1..StackSize] of Student;

SP: integer;

procedure Init;

procedure Push(NM: NameStr; M: integer);

procedure Pop(var NM: NameStr; var M: integer);

function Empy: boolean

end;

{Описание:}

procedure Stack.Init;

begin

SP:= 1;

end;

procedure Stack.Push;

begin

…

end;

procedure Stack.Empty: boolean;

begin

…

end;

procedure Stack.Pop;

begin

…

end;

{Использование:}

var

StackVar: Stack; {экземпляр класса Stack в терминах ООП}

begin

…

StackVar.Init;

…

StackVar.Push(‘Иванов’,5);

…

end;

Объявление объекта в модуле:

Модуль является идеальным хранилищем объекта. Такой подход принят в Object Pascal.

Пример объявления объекта Stack в модуле:

unit ObjStack;

interface

const

StackSize = 100;

type

NameStr: string[15];

Student = record;

…

end;

Stack = Object

…

end;

implementation

procedure Stack.Init;

begin

SP:= 1;

end;

…

end;

Дата добавления: 2014-01-07