摘要：下面在turbo pascal7中定义了一个单元，里面声明并实现了几个画图类：unit Figures;interfaceuses Graph,Crt;type Location=object X,Y:integer; procedure Init(InitX,InitY:Integer); function GetX:Integer; function GetY:Integer;end;PointPtr=^Point;Point=object(Location) Visible:Boolean; constructor Init(InitX,InitY:Integer); destructo 阅读全文