OOP - polymorfizmus
Constructor
TKruh.Create(xx,yy,rr:integer);
begin
x:=xx;
y:=yy; r:=rr; vid:=false; f:=clBlack;
end;
procedure
TKruh.ukaz;
begin
g.Pen.Color:=f; g.Brush.Style:=bsClear; g.Ellipse(x-r,y-r,x+r,y+r); vid:=true;
end;