Движение предмета, С использованием ООП Опции

[Dmi3_j]

Изучаю по книжке ООП, программа должна двигать точку, а она ее просто отображает:

Код

Uses Graph, CRT;

Type
GraphObj = object
     X,Y: Integer;
   Color: Word;
Constructor Init(aX,aY:Integer;AColor:Word);
Procedure Draw(aColor:Word); Virtual;
Procedure Show;
Procedure Hide;
Procedure Move(dX,dY:Integer);
end;
Constructor GraphObj.Init;
begin
X:=aX;
Y:=aY;
end;
Procedure GraphObj.Draw;
begin
end;
Procedure GraphObj.Show;
begin
Draw(Color);
end;
Procedure GraphObj.Hide;
begin
Draw(GetBkColor);
end;
Procedure GraphObj.Move;
begin
Hide;
X:=X+dX;
Y:=Y+dY;
Show
end;

Type
Point = object(GraphObj)

Procedure Draw(aColor:Word); Virtual;
end;

Procedure Point.Draw;
begin
PutPixel(520,290,white);
end;
Var
d,r,q:Integer;
    ln:Line;
begin
  D:=Detect;
  InitGraph(d,r,'');
  Ln.Init(200,200,white);
  Ln.Draw(red);
Repeat
  ln.Move(-10,10);
Until
q>100;
End.

[Dmi3_j]

Код

{.......}
Point = object(GraphObj)
Constructor Init(aX,aY:Integer;aColor:Word);
Procedure Draw(aColor:Word); Virtual;
end;
Constructor Point.Init;
begin
Inherited Init(aX,aY,aColor);
X:=aX;
Y:=aY;
end;
Procedure Point.Draw;
begin
PutPixel(X,Y,Color);
end;
Var
d,r,q:Integer;
    Pt:Point;
begin
  D:=Detect;
  InitGraph(d,r,'');
  q:=1;
  Pt.Init(200,200,red);
  Pt.Draw(red);
Repeat
  Pt.Move(-10,10);q:=q+1;Delay(100);
Until
q>100;
End.

Точка не отображается.

Сообщение отредактировано: Dmi3_j - 22.01.2006 13:10