Неправильно работает таймер?

[_Dmitry]

Когда-то давно анализировали работу таймеров: http://www.programmersforum.ru/showthread.php?t=12132

Даже программу делали для сравнения: http://www.programmersforum.ru/attac...9&d=1199691941

[Aliens_wolfs]

Поддерживаю Pavia

Для игр стоит использовать мультимедийный таймер. Он уже будет гарантированно работать с точностью 15,16 мс. И при настройке системы 1 мс.
timeGetTime, timeKillEvent, and timeSetEvent

Я тоже использую этот таймер и пока он меня лично устраивает почитать можно здесь
высокоточный таймер http://www.webdelphi.ru/2009/08/vyso...svoimi-rukami/

uses
MMSystem, .......



var
TimerID: Dword;
TimeStart: TDateTime;
Freq, Coun1, Coun2: int64;

// минимальный период таймера
function timeGetMinPeriod(): DWORD;
var  time: TTimeCaps;
begin
  timeGetDevCaps(Addr(time), SizeOf(time));
  timeGetMinPeriod := time.wPeriodMin;
end;

//максимальный период таймера
function timeGetMaxPeriod(): Cardinal;
var time: TTimeCaps;
begin
  timeGetDevCaps(Addr(time), SizeOf(time));
  timeGetMaxPeriod := time.wPeriodMax;
end;

procedure TimerProc(uTimerID, uMessage: UINT; dwUser, dw1, dw2: DWORD) stdcall;
begin
 QueryPerformanceCounter(Coun2);
  TForm1(dwUser).Memo1.Lines.Add(Format('%8.3f c (%6.3f мс)',[(Coun2-Coun1)/Freq,1000*(Coun2-Coun1)/Freq]));
//TForm1(dwUser).Memo1.Lines.Add(FormatDateTime('hh:mm:ss:ms', Now - TimeStart));
QueryPerformanceCounter(Coun1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
QueryPerformanceFrequency(Freq);
QueryPerformanceCounter(Coun1);
//TimeStart := Now;
// запуск с минимальным периодом
TimerID:= timeSetEvent(1, timeGetMinPeriod, TimerProc, Dword(Form1), TIME_CALLBACK_FUNCTION or TIME_PERIODIC);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timeKillEvent(TimerID);
end;

[fanlis]

Да, я почитал про мультимедийный таймер, нашел вот такой вариант:

unit clMMTimer;

interface

uses
  Windows, Classes, MMSystem;

type
  TMMTimer = class
  private
    FInterval: integer;
    fId: UINT;
    FOnTimer: TNotifyEvent;
    fTag: integer;
    function GetEnabled: boolean;
    procedure SetEnabled(Value: boolean);
    procedure SetInterval(Value: integer);
  protected
    procedure DoTimer; virtual;
  public
    property Interval: integer read FInterval write SetInterval;
    property Enabled: boolean read GetEnabled write SetEnabled;
    property Tag: integer read fTag write fTag;
    property OnTimer: TNotifyEvent read FOnTimer write FOnTimer;
    destructor Destroy; override;
  end;

implementation

{ TMMTimer }

procedure MMCallBack(uTimerID, uMsg: UINT; dwUser, dw1, dw2: DWORD); stdcall;
begin
  if dwUser <> 0 then
    TMMTimer(dwUser).DoTimer;
end;

destructor TMMTimer.Destroy;
begin
  if Enabled then
  begin
    if (fId <> 0) then
    begin
      timeKillEvent(fId);
      fId := 0;
    end
  end;
  inherited;
end;

procedure TMMTimer.DoTimer;
begin
  if Assigned(FOnTimer) then
    FOnTimer(Self);
end;

function TMMTimer.GetEnabled: boolean;
begin
  Result := fId <> 0;
end;

procedure TMMTimer.SetEnabled(Value: boolean);
begin
  if Enabled <> Value then
  begin
    if fId <> 0 then
    begin
      timeKillEvent(fId);
      fId := 0;
    end
    else
    begin
      fId := timeSetEvent(FInterval, 1, @MMCallBack, DWORD(Self),
        TIME_CALLBACK_FUNCTION or TIME_PERIODIC{ or TIME_KILL_SYNCHRONOUS});
    end;
  end;
end;

procedure TMMTimer.SetInterval(Value: integer);
var
  oldEnabled: boolean;
begin
  if FInterval <> Value then
  begin
    oldEnabled := Enabled;
    Enabled := false;
    FInterval := Value;
    Enabled := oldEnabled;
  end;
end;

end.

Работаю как с обычным таймером:

var
  Timer1: TMMTimer;
begin
  Timer1:=TMMTimer.Create;
  Timer1.Interval:=20;
  Timer1.OnTimer:=Timer1Timer;
  Timer1.Enabled:=true;

Немножко подкорректировал.
В общем использовал я этот таймер и 3-й вариант, как описывал в начале и теперь просто счастлив! Теперь в программе все просто и понятно, я бы даже сказал изящно. Таймер выполняет задержку 20 мс с погрешностью десятые доли мс.