ОҚу -әдістемелік кешені 5В070200 Автоматтандыру және басқару мамандығы үшiн ОҚУ-Әдістемелік материалдар

2.5 Кластың әдістері

TMyClass = class(TObject) {класты жариялау}

...

procedure DoSomething; {DoSomething әдісін жариялау}

...

DoSomething әдісіне сипаттама кейінірек модульдің implementation секциясында келтірілуі керек, мысалы:

...

Әдіске қатынағанда құрамды атты немесе With операторын қолдануға болады, мысалы:

TChildClass = class(TObject) {класты жариялау}

...

function FirstFunc(x:real):real;

procedure SecondProc;

...

...

MyObject : TChildClass;

y : real;

begin

...

y := MyObject.FirstFunc(3.14); //құрамды аттың көмегімен: класс . әдіс

...

With MyObject do // сол қатынау

begin // With опреаторының көмегімен

SecondProc;

y := FirstFunc(3.14);

end;

...

Класта анықталған әдістер статикалық, виртуальды, динамикалық және абстрактілі болуы мүмкін. Методтың типі оның ұрпақтарымен қалқалану механизмі арқылы анықталады.

Біратты әдістер ұрпақтарда мысалда көрсетілгендей өрістердің қалқалануы сияқты қалқаланады . Мұндай қалқалау статикалық деп аталады. Статикалық әдістер үшін қалқалау компилятор арқылы жүзеге асырылады. Үнсіздікпен класта сипатталған барлық әдістер статикалық болып табылады.

Мүмкіндікті кеңейту үшін жиі динамикалық қалқалау қолданылады. Ол үшін аталық әдіс dinamic (динамикалық әдіс) немесе virtual (виртуальды әдіс) директивасынан тұруы керек, ал ұрпақ класта қалқалау әдісі - override директивасынан тұруы керек. Мысалы:

TFigure = class

TRectangle = class(TFigure)

TEllipse = class(TFigure)

Бұл мысалда TFigure аталық класының Draw виртуальды әдісі жарияланған және екі біратты әдіс TRectangle және TEllipse ұрпақ класына қатысты жарияланған. Соңғылары қалқаланумен жарияланған (override).

Мұндай жариялау керекті мақсатқа жету мақсатында әдістерді қалқалауға мүмкіндік береді:

var

Figure: TFigure;

Figure := TRectangle.Create; // кластың данасын құру

Figure.Draw; // TRectangle.Draw әдісін шақыру

Figure.Destroy; // класс данасын жою

Figure := TEllipse.Create; // класс данасын құру

Figure.Draw; // TEllipse.Draw әдісін шақыру

Figure.Destroy; // класс данасын жою

end;

Семантикалық виртуальды және динамикалық әдістер біркелкі жұмыс істейді. Айырмашылығы тек виртуальды әдіс уақытты үнемдеу көз қарасында өте тиімді (есептеу жылдамдығын тиімдейді), ал динамикалық әдіс оперативтік жадыны рациональды қолдануға мүмкіндік береді (сәйкес келетін бағдарламалық кодтың өлшемін тиімдейді). Динамикалық және виртуальды әдістер статикалық әдістен ерекшелігі мынада , аталық әдістер мен ұрпақтар әдістерінің орын ауыстыруы бағдарламаның орындалу барсыныда жүзеге асырылады.

Класта әдіс abstract директивасының көмегімен абстрактілі болып жариялануы мүмкін. Мұндай әдіс виртуальды немесе ддинамикалық әдіс болуы мүмкін, бірақ басқа әдістерден айырмашылығы implementation секциясында өзінің коды болмауы мүмкін. Ол класта анықталады, бірақ ешқандай әрекеттен тұрмайды, ешқашан шақырылмайды және ұрпақтар класында қайтадан анықталуы керек. Абстрактілі әдістен тұратын класс абстрактілі класс деп аиалады. Мұндай кластар мен әдістер ұрпақтар әдістеріне қатынау тәсілін инкапсуляция жасайды, бірақ өздері ештеңе істемейді, мысалы:

procedure DoSomething; virtual; abstract;

Қалқаланбаған абстрактілі әдіске қатынау орындалу уақыты туралы қатені шақырады (run time error), мысалы:

TClass1 = class(TClass0)

...

procedure Paint; virtual; abstract;

end;

TClass2 = class(TClass1)

...

procedure Paint; override;

end;

var

jClass1: TClass1;

jClass2: TClass2;

begin

jClass1.Paint; // абстрактілі әдіске қатынау дұрыс емес

jClass2.Paint; // дұрыс

...

Әрбір класс екі ерекше әдістен тұрады – конструктор және деструктор. Конструктор объектіні құру және оны инициализациялау үшін тағайындалған. Мәселен, Object Pascal тілінде объект динамикалық құрылым болып табылады және айнымалы-объект берілгендерден емес оларға сілтемеден тұрады. Конструктор объектіні динамикалық жадыда үлестіреді және объектінің өрісіне алғашқы мәнін меншіктейді. Соған байланысты тізбектелген типтің өрісі алғашқы мән ретінде 0 – ді алады, жолдық тип ретінде – бос жол, нұсқағыш өрістер - nil мәнін, таңдау - өрісі - Unassigned мәнін алады. Одан басқа, конструктор динамикалық жады бөлінгеннен кейін құрылған объектіге сілтемені Self айнымалысына орналастырады. Барлық класс үнсіздікпен Self айнымалысынан тұрады, ол автоматты түрде класта жарияланады.

Конструктор мен деструктор процедура болғанымен де, олар арнайы резервтелген сөздермен жарияланады. Конструктор constructor сөзімен, ал деструктор – destructor сөзімен жарияланады.

TSample = class

Text: String;

constructor Create; // кластың данасын құру

destructor Destroy; // кластың данасын

end;

Өріске, қасиеттерге және әдістерге қатынамас бұрын, ең алдымен оларды құру керек. Объектіні құру үшін ең алдымен объектінің класына конструктор-әдісін қолдану қажет:

MyObject: TSample;

MyObject := TSample.Create;

...

end;

Егер ұрпақтар класы құрылып жатса және оны құру кезінде аталық класта жоқ кейбір қосымша әрекеттерді іске асыру көзделсе, онда алдымен өзінің аталығының конструкторын шақыру керек, ал содан кейін барып қосымша әрекеттерді іске асыру қажет. Арғы тектің өрістеріне қатынауды қамтамасыз ету үшін, конструкторда алдын – ала арғы тек класының объектісін құру қажет. Аталық кластың кез – келген қалқаланған әдісін шақыруды резервтелген inherited (иемденген) сөзінің көмегімен іске асырады. Мысалы:

TShape = class(TGraphicControl)

FPen: TPen;

FBrush: TBrush;

procedure PenChanged(Sender: TObject);

procedure BrushChanged(Sender: TObject);

public {сыртқы жариялау}

constructor Create(Owner: TComponent); override;

destructor Destroy; override;

...

Width := 65; // TGraphicControl иемденген қасиетін өзгерту

Height := 65;

FPen := TPen.Create; // class TPen типі бар жеке өрісті құру

FPen.OnChange := PenChanged;

FBrush := TBrush.Create; // class TBrush типі бар жеке өрісті құру

FBrush.OnChange := BrushChanged;

end;

Кейбір қарапайым кластар конструкторды немесе деструкторды жарияламай – ақ, құрылуы немесе жойылуы мүмкін. Мысалы, класс TObject, класының ұрпағы болып келсе, онда мұнда Constructor мен Destructor - ды жариялаудың қажеті жоқ:

TClassy = class;

...

var

Classy: TClassy;

...

Classy:= TClassy.Create; {объектіні құру}

Classy:= TClassy.Free; {объектіні жою}

Тілде бір класс аралығында бір атпен бірнеше әдісті жариялау мүмкіндігі бар. Осыдан кез – келген осындай әдіс қайта іске қосылатын болуы керек (overload директивасы). Компилятор мұндай әдістерді өзінің тиімді формальды параметрлерінің жиынымен идентификациялайды. Сол атпен пайда болған әдіске Delphi компиляторының реакциясын орындатпау үшін, әрбір осындай әдісті reintroduce директивасымен белгілеп қою керек.Ары қарай implementation секциясында осындай барлық әдістердің қодтарын енгізу керек. Мысалы:

type

TClassy = class;

Procedure HH(i, j: byte; var s: String); reintroduce; overload;

Procedure HH(q: String); reintroduce; overload;

Procedure HH(a: array of Integer); reintroduce; overload;

end;

...

...

S:=IntToStr(i + j);

 

procedure TClassy.HH(q: String);

Label2.Caption:= q;

 

procedure TClassy.HH(a: array of Integer);

Label1.Caption:= IntToStr(a[6] + a[4]);

...