処理時間の計測方法

解決

---

プロシージャ単位、もしくは処理の一塊で、どのくらい処理時間がかかっているか
計測をしたいと思っています。処理時間を計測するコンポーネントとかあるのでしょうか？
時間についてのコンポーネントでTimerを調べたのですが、時間をあらかじめ設定しコンポーネント等を起動させるものとヘルプに載っていたので計測するとはまた違うと思いました。

例えば以下のFor文の開始と終了までの処理時間を調べたい場合

//開始----------------
For i:=0 to 10 do    ↑
begin
 A:=1;                この区間の時間を計測したい
end;                  ↓
//終了----------------

編集    削除

---

どの程度の精度で時間の測定が必要でしょうか？
秒単位でいいなら、開始と終了の場所にwrite(DateTimeToStr(Now))を埋め込むだけで、表示を見て自分で引き算すればＯＫです。

編集    削除

---

t1,t2:Longint;

  t1 := GetTickCount;
  for i := 0 to ..........  
  begin
     :
     :
  end;
  t2 := GetTickCount;

  Memo1.Lines.add(FloattoStr((t2-t1)/1000)+'s');

こんな感じでどうでしょ？

編集    削除

---

var 
  start,fin,freq : int64;
begin
  QueryPerformanceCounter(start);

  for i := 0 to ..........  
  begin
     :
     :
  end;

  QueryPerformanceCounter(fin);
  QueryPerformanceFrequency(freq);
  InputBox('','',FloatToStr(((fin - start)*1000)/freq));
end;
とか、、、CPUによって使えませんが、、

編集    削除

---

忘れてた。↑のは単位：ミリ秒

編集    削除

---

Delphi4 以降であれば、拙作のものがお役に立てるかもしれません。
http://www.sadoyama.pro.nu/htm/programing.htm

これも QueryPerformanceCounter() を使っています。

通りすがりさん Wrote
> CPUによって使えませんが

そういう説を聞いたことがあります。
MSDN にもそのような記述があります。
しかし、マルチCPU 以外においては問題ないと判断しています。

編集    削除

---

コンポーネントでもよければ，

http://www003.upp.so-net.ne.jp/sadoyama/htm/compo/stopwatch.htm

なのもあります．

編集    削除

---

ありがとうございます。上手く計測できました。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。