Мавзу: Корхона омборидаги махсулотлар бўйича маълумотлар базасини ташкил этишни Turbo Pascal дастурлаш тилида дастурини яратиш

Объект номи = class
// объектнинг хусусияти, методлари ва ходисалари
end;

Delphi да объектлар клаcслар деб номланади. Баъзи китобларда бу турлича, лекин мен объект билан класс ўртасида фарқни кўрмадим ва менинг китобимда улар битта маънони англатади. Агар сизнинг объектингиз бошқа бирор объект хусусиятини авлоди (насли) бўлишини хохласангиз, class калит сўздан сўнг «Ота» объект номини киритишингиз керак.

Объект номи = class (аждод номи)
// Ъусусят, методлари ва объект ходисалари
end;
TForm1 = class (TForm) янги объектини яратади. TForm объектнинг авлоди. Яна кодга қайтамиз. Объектни эълон қилгандан сўнг, унинг хусусияти, метод ва ходисаларни эълон қилинади ва end; сўзи билан тугатилади.
Эълон қилиш уч қисмга бўлинади: Private, protected ва public.
Delphi автоматик тарзда protected ни яратади, уни Delphi ни ўзи яратади. Эълон қисмига эса сиз ъоълаган ўзгарувчиларни, прцедуралар ва функцияларни ёзишингиз мумкин.
Объект номи = class (Аждод номи)
// Бу ерга компонетлар ва ходисалар ёзилади


Private // Бу сўздан сўнг объектнинг ёпиқ маълумотлари ёзилади


{Бу ерда фақат Tform1 га тегишли ўзгарувчи ва методларнри ёзиш мумкин}


1- Ўзгарувчи : Integer ;
Procedure Proc1 ;


Public // Бу сўздан сўнг объектнинг очиқ маълумотлари ёзилади


2- Ўзгарувчи : Integer ;
3- Ўзгарувчи : String;
Procedure Proc2 ;
Procedure Proc3 ;
End;

Ёзилишида битта қонун мавжуд: қисм ичида биринчи ўзгарувчи, кейин процедура ва функция келади. Ъеч қачон биринчи процедура кейин ўзгарувчи ва функция ёзилмайди. Мисол.

Private


Ўзгарувчи1: Integer ;
Procedure Proc1 ; // Прoцедура