Подпрограмма, По созданию задержки Опции

[1234]

Кто знает, как создать подпрграмму по созданию задержки(скажем в 1 секунду). Так, например, в игре она необходима для того, чтобы объект с определённой скорстью совершал движение. Cпасибо за внимание.

[klem4]

Я на ТЫ не обращался ни к кому

Боюсь тебя огорчить, но это интернет, а не деловая встреча ...

Причина в том, что задержка очень сильно зависит от компьютера. У меня, например, этот делэй даёт отнюдь не секунду, а намного меньше.

Ну так можно сделать параметр Delay переменной (в разных местах с разными коэффициентами) и позволить пользователю изменять значение этой переменной дабы настроить программу ...

[TarasBer]

Боюсь тебя огорчить, но это интернет, а не деловая встреча ...
Ну так можно сделать параметр Delay переменной (в разных местах с разными коэффициентами) и позволить пользователю изменять значение этой переменной дабы настроить программу ...

В таком случае предлагаю такой вариант:

for i := 0 to ms - 1 do            {для большего эффекта можно вместо 10 написать r, где r - типа real}
  D := sin(cos(arctan(10)));    {или включить эмуляцию сопроцессора}

Естественно, выключив оптимизацию.
Даже без цээртэ обошлись.
Параметр ms пусть каждый сам подбирает...

Всё-таки Delay это несерьёзно. Надо смотреть на время. В Паскале для это есть обращение к конкретному адресу, а в дельфе есть функция Time возвращающая значение типа double, причём единица - это 1 год. И меняется это значение чуть ли не каждую тысячную долю секунды (винда такты считает что ли?)