如題 假設我將寫好了一個程式 那我要如何知道它執行時花了多少時間 或是它的效率如何呢 例如:我按了button1執行程式;執行完時會跳出message視窗 告訴我花了多少時間 請大家賜教 謝謝 何需Coding爭峰 千人指 萬人鋒 敢問Coding頂峰 三尺秋水塵不染 天下無雙

------
何需Coding爭峰
千人指 萬人鋒
敢問Coding頂峰
三尺秋水塵不染
天下無雙

豬寶寶覺得..這個問題蠻奇怪的說^^" 您可以這樣測試

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b:TDateTime;
  i:integer;
begin
a:=now;
for i :=0  to 100000 do
begin
   Label1.Caption:=IntToStr(i);
end;
b:=Now;
ShowMessage('總共執行了' inttostr(SecondsBetween(a,b)) '秒');  
end;

ps.您好像自己也講出答案了..^^ 喜歡看日劇的朋友可以到這邊看看 http://forum.nanodvd.org/index.php

引言: 如題 假設我將寫好了一個程式 那我要如何知道它執行時花了多少時間 或是它的效率如何呢 例如:我按了button1執行程式;執行完時會跳出message視窗 告訴我花了多少時間 請大家賜教 謝謝 何需Coding爭峰 千人指 萬人鋒 敢問Coding頂峰 三尺秋水塵不染 天下無雙

在你的一段你想知道运行时间的代码里加上： i:=GetTickCount; DoYourProcedure; j:=GetTickCount; Label1.Caption:=IntToStr(j-i) 'MS';