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

[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.

[klem4]

Во первых, стнанная у тебя основная чать, начальное значение q не известно и в цикле repeat оно не меняется, хотя цил по этой переменой +

Procedure Point.Draw;
begin
PutPixel(520,290,white);
end;

У тебя же постоянно получается что точка выводится в одном и том-же месте ...

Сообщение отредактировано: klem4 - 22.01.2006 16:16