Помогите сделать движение объектов в Pascal

[Tayfun]

Извитите ещё раз а вот в вашем exemple все вроде прописываю как высказали а он материться говорит что неизвестный идентификатор X,Y

Пропеши в Var
x,y:integer;

[Ivanich]

не работает компилирую наживаю P точка стоит на одном месте и то исчезает то появляется но не двигается

new(p);
p^.init(320,240);
ch:=readkey;
if ch='p' then
repeat
p^.Hide(0,0);
x:=50;
y:=10;
p^.Show(50,100);
until KeyPressed;

end.

[Tayfun]

Сообщение от Ivanich

не работает компилирую наживаю P точка стоит на одном месте и то исчезает то появляется но не двигается

new(p);
p^.init(320,240);
ch:=readkey;
if ch='p' then
repeat
p^.Hide(0,0);
x:=50;
y:=10;
p^.Show(50,100);
until KeyPressed;

end.

Сделай примерно такой цыкл:
Только x опиши в var

Var
x:integer;

repeat
p^.Hide(0,0);
x:=x+1;
p^.Show(x,0);
delay(1000);
until x=100;

[Ivanich]

Да все ништяк получилось.Теперь хочу зделать цикл for чтоб повторялось движения.Спасибо тебе огромное

[Tayfun]

Д

а все ништяк получилось.Теперь хочу зделать цикл for чтоб повторялось движения.Спасибо тебе огромное

Да пожалуйста... Если что, обращайся!