Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > движение авто со скоростью

Автор: saltonik 2.4.2011, 18:08

Здравствуйте! Помогите пожалуйста найти ошибку. Запускаю программу на выполнение - зависает((

Код


procedure TForm2.Timer3Timer(Sender: TObject);
begin
k:= (100*v) div 36; // Это на сколько пикселей будет передвигаться автомобиль, v=скорость авто км/ч

// shape1 - автомобиль, s - остановочный путь
while shape1.left< s do
begin

shape1.left:= shape1.left+k;

end;
 timer3.Enabled:=false;

end;

Автор: Coder 3.4.2011, 13:15

при v = 0 хана твоему while smile

Добавлено через 1 минуту и 41 секунду
кстати, добавь Application.ProcessMessage в тело цикла.

Автор: ziga 4.4.2011, 10:39

добавь условие перед входом в цикл

Код


  if k > 0 then