Переопределение виртуальных методов, FreePascal Опции

[Bokul]

Несколько часов искал ошибку, которую FreePascal вроде должен бы отлавливать:
Наследник в переопределении виртуального метода предка делает его статическим. Должен ли компилятор сообщить об этом? Ведь в Паскале вроде нельзя так делать?

[Bokul]

Да все теже шарики:

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;

Метод ChangeDirection.
Совместимость в обоих модулях стоит с TP - через директиву {$Mode Tp}

Сообщение отредактировано: Bokul - 24.12.2006 4:53