Delphiメモ

No011:経過時間を計測する

経過時間を計るにはタイマーコンポーネントではなく、GetTickCountAPIを使う。
このAPIは単にWindows起動から経過した時間をDWORD型で返すだけの単純な関数。

function GetTickCount: DWORD;

経過時間はミリ秒単位なので注意。
処理時間を計るには以下のようにやればいい。

var
  StartTime, EndTime: Integer;
begin
  StartTime:= GetTickCount;

  {計測したい処理の内容}

  EndTime:= GetTickCount;

  ShowMessage('経過時間:'+IntToStr(EndTime-StartTime)+'ms');
end;

最後のShowMessageで経過時間を表示する。
基本的に動作テストなどで使うのかな。

トップに戻る

関連ページ