Delphi dasturlash tili haqida

ёзишни таъминловчи усул номи ёзилади.
Қуйида икки Name ва Address хоссаларини ўз ичига олувчи TPerson синфи таърифи келтирилган:
type
TName string15; TAddress string35;
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;
Дастурда student объектининг, Address хоссасига қиймат беришини қуйидагича ёзиш мумкин
student. Address : Тошкент, Юнусобод 21, кв. 3;
Ворислик - ҳар қандай синф бошқа синф асосида яратилиши мумкинлигини билдиради.
Бош синфдан янги бир синф яратиш қуйидаги дастур коди ёрдамида бажарилади.
TnewClassClass(TotolClass);
Бу ерда TotolClass -бош синф, TnewClass - эса янги синф номлари. Янги синф бош синфнинг барча хосса ва усулларини қабул қилади.
Ворислик бу мавжуд синфларга янги майдонлар, хоссалар ва усуллар қўшиш ёрдамида янги синфлар ҳосил қилиш имкониятини беради. Янги ҳосил қилинган авлод синф асос яъни аждод синф хоссалари ва усулларига ворислик қилади.
Авлод синф таърифида аждод синф номи кўрсатилади. Мисол учун TEmployee (ходим) синфи TPerson синфидан FDepartment (бўлим) майдонини қўшиш ёрдамида ҳосил қилиниши мумкин. TEmplioyee синфининг таърифи қуйидагича бўлади:
TEmployee class(TPerson)
FDepartment: integer;
constructor Create(Name:TName; Dep:integer);
end;
Бу мисолда TEmployee синфи TPerson синфининг ворисидир.
TEmpioyee ўз конструкторига эга бўлиши лозим. TEmployee синфи конструктори қуйидагича берилиши мумкин:
constructor TEmpioyee. Creat