пауза

[an-na2002]

Подскажите как задать паузу (в pascal была функция delay)

[Cheb]

Sleep(<милисекунд>)

В Виндавсе надо при старте программы надо задать ей точность в 1мс, если не хочешь, чтобы округляла до ближайших примерно 40.

Я делаю так:

Код: Выделить всё

{$ifdef win32}
type
  MMRESULT = UINT;
const
  TIMERR_NOERROR = 0;
  TIMERR_NOCANDO = 96 + 1;
function timeBeginPeriod(x1: UINT): MMRESULT; stdcall; external 'winmm.dll' name 'timeBeginPeriod';
function timeEndPeriod(x1: UINT): MMRESULT; stdcall;  external 'winmm.dll' name 'timeEndPeriod';
{$endif}

.....

    {$ifdef win32}
    Write('Calling timeBeginPeriod(1)...');
    if timeBeginPeriod(1) = TIMERR_NOERROR
      then WriteLn('Ok');
      else WriteLn('failure!');
    {$endif}