15番会議室「FAQ編纂委員会」に寄せられた「よくある質問の答え」
[Q]
質問があるのですが、たまに、"実行時間を比較したところ..."といった
メッセージを見かける事があります。
これは、具体的にはどの様にして実行時間を測定しているのでしょうか?
[A]
API の TimeGetTime を利用して時間を計測することができます。
uses に MMStystem を追加して
procedure TForm1.Button1Click(Sender: TObject);
var
TC: DWORD;
begin
TC := TimeGetTime;
// 〜〜〜〜
// 何かする
// 〜〜〜〜
Label1.Caption := IntToStr(TimeGetTime-TC);
end;
としてください。
ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum FDELPHIに寄せられる質問の中から、よくある質問への回答を FDELPHIのメンバーがまとめたものです。 したがって、これらの回答はボーランド株式会社がサポートする公式のものではなく、掲示されている内容についての問い合わせは受けられない場合があります。
Copyright 1996-1998 Delphi Users' ForumFAQ編纂委員会
|