Добрый день!
Начал вот ООП осваивать, появился вопрос..
Возможна ли обработка нескольких полей в одном методе?
например отнять от двух полей(тип integer) по единице...
Заранее благодарен..
type
A = object
x1, x2: integer;
constructor init;
procedure recalc;
procedure print;
end;
constructor A.init;
begin
x1 := 10; x2 := 5;
end;
procedure A.recalc;
begin
dec(x1); dec(x2);
end;
procedure A.print;
begin
writeln('x1 = ', x1, ' x2 = ', x2);
end;
var obj: a;
begin
obj.init;
obj.print;
obj.recalc;
obj.print;
end.