Протестите Прогу...плз

[Serge_Bliznykov]

Ну вот здесь есть вариант с 32разрядным счётчиком:

спасибо. посмотрю.

Однако, я более, чем уверен, что если поделить количество миллисекунд на (1000 div 18), а затем тупо ждать, пока BIOS таймер не увеличится на эту величину

ну, приблизительно такой вариант я в обсуждении и предлагал.
вот только я его вставляю как отдельную процедуру вместо штатного Delay.
например, такой вариант:

function  IsPressDelay(HundSecond : longInt) : boolean;
var
  Ticks      : LongInt  absolute 0:$46c;
begin
  IsPressDelay := false;
  HundSecond:=round(HundSecond * 0.185) +Ticks;
  repeat  until KeyPressed  or (Ticks>HundSecond);
  if KeyPressed then begin
    IsPressDelay := true;
  end;
end;

[ОДИНОЧЕСТВО В СЕТИ]

Как сделать фиксированную задержку, вместо Delay()

Procedure Delay(x:longint);
var t:longint;
begin
t := MemL[Seg0040:$6c];
while MemL[Seg0040:$6c] < t+x do; {задержка на X тиков}
end;

[Impuls1989]

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

Да нет, коллега, всё хуже. Патчи установлены. Ошибки 200 при иницилазации CRT не возникает. А Delay не работает... Хотя корень проблемы действительно в одном - процедура, которая отсчитывает задержку на современных процессорах отрабатывает без задержки на всём диапазоне вводимых значений...

Позвольте с вами не согласиться. У меня delay работает, но не совсем правильно. Если ставить delay(50000) - это составляет примерно 0.5 секунды. Хотя способ конечноже плох: на разных компьютерах, скорость задержки разная.

[OCTAGRAM]

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

У меня delay работает, но не совсем правильно. Если ставить delay(50000) - это составляет примерно 0.5 секунды.

Это и подразумевалось под "не работает". Скачайте другую пропатченную версию. Какую угодно, только не Клауса Хартнегга.