Ы маамммтттттngy s,,,,,,,,,,,C, xf

type

TName = string[15]; TAddress = string[35];

TPerson = class

private

FName: TName;

FAddress: TAddress;

Constructor Create(Name:Tname);

Procedure Show;

Function GetName: TName;

Function GetAddress: TAddress;

Procedure SetAddress(NewAddress:TAddress);

public

Property Name: Tname

read GetName;

Property Address: TAddress

read GetAddress

write SetAddress; end;
Dasturda student ob’ektining, Address xossasiga qiymat berishini quyidagicha yozish mumkin

student.Address := 'Toshkent, Yunusobod 21, kv.3';

Vorislik - har qanday sinf boshqa sinf asosida yaratilishi mumkinligini bildiradi.

Bosh sinfdan yangi bir sinf yaratish quyidagi dastur kodi yordamida bajariladi.

TnewClass=Class(TotolClass);

Bu erda TotolClass -bosh sinf, TnewClass - esa yangi sinf nomlari. Yangi sinf bosh sinfning barcha xossa va usullarini qabul qiladi.

Vorislik bu mavjud sinflarga yangi maydonlar, xossalar va usullar qo’shish yordamida yangi sinflar hosil qilish imkoniyatini beradi. Yangi hosil qilingan avlod sinf asos ya’ni ajdod sinf xossalari va usullariga vorislik qiladi.

Avlod sinf ta’rifida ajdod sinf nomi ko’rsatiladi. Misol uchun TEmployee (xodim) sinfi TPerson sinfidan FDepartment (bo’lim) maydonini qo’shish yordamida hosil qilinishi mumkin. TEmplioyee sinfining ta’rifi quyidagicha bo’ladi:

TEmployee = class(TPerson)

FDepartment: integer;