Классы и объекты в Object Pascal. Семенов Н.М. - 18 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

var
ACircle: Tcircle;
begin
. . .
ACircle := TCircle.Create;
. . .
end;
вы можете обращаться к его полям следующим образом:
begin
. . .
ACircle.X := 30;
ACircle.Y := 25;
ACircle.Radius := 17;
. . .
end;
Вы отделяете имена полей от префиксного названия переменной одной точкой.
Вы обращаетесь таким способом не только к полям данного типа объекта, но и ко всем
полям класса - предка. Например, представьте себе следующее объявление класса,
происходящего от TСircle :
type
TColorCircle = class(TCircle);
BorderColor,
InsideColor: TСolor;
constructor Create;
end;
Во - первых, должен быть создан допустимый экземпляр типа TColorCircle
посредством вызова конструктора Create. После инициализации переменной
AColorCircle допустимым экземпляром Вы можете обращаться к её полям:
var
AColorCircle: TColorCircle;
begin
. . .
AColorCircle := TColorCircle.Create;
. . .
AColorCircle.BorderColor := clBlack;
AColorCircle. InsideColor := clYellow;
. . .
AColorCircle.X :=30;
AColorCircle.Y := 25;
AColorCircle.Radius := 17;
. . .
end;

Страницы