Несколько часов искал ошибку, которую FreePascal вроде должен бы отлавливать:
Наследник в переопределении виртуального метода предка делает его статическим. Должен ли компилятор сообщить об этом? Ведь в Паскале вроде нельзя так делать?
type
TPGObject=^TGObject;
TGObject=object
v,col:byte; //speed, color
l,t:real;//angle, time
constructor init(speed,color:byte; angle,time:real);
procedure moveto;
procedure ChangeDirection; virtual;//abstract; //!!!!!!!!!!!!!!!!!!
procedure calculation; virtual; //abstract;
function GetFrontPoint:TPoint; virtual;//abstract;
function IsInside(P:TPoint):boolean; virtual;//abstract;
procedure show; virtual;// abstract;
procedure hide; virtual;// abstract;
destructor done; virtual;
end;
type
TPBall=^TBall;
TBall=object(TGObject)
public
pos:TPoint;
//pos.x,pos_y:integer;
radius:integer;//radius
constructor init(x,y:integer; speed,color:byte; angle,time:real; r:byte);
procedure ChangeDirection; //!!!!!!!!!!!!!!!!!!
procedure calculation; virtual;
function GetFrontPoint:TPoint; virtual;
function IsInside(P:TPoint):boolean; virtual;
procedure show; virtual;
procedure hide; virtual;
destructor done; virtual;
private
function distance(P:TPoint):real;
end;