[Delphi] 시간 측정 - TStopWatch

프로세스의 동작 시간을 측정, 비교하기 위한 TStopWatch API 예제.

• 코드 :

procedure StopWatch;
var
  stopWatch :TStopWatch;  //System.Diagnostics
  elapsed: TTimeSpan;     //System.TimeSpan
  i :integer;
  seconds :Double;
begin
  try
    stopwatch := TStopwatch.StartNew;
    for i := 0 to 1000000 do
    begin
      //doSomething..
    end;
    elapsed := stopwatch.elapsed;  //stopWatch 의 시간 경과를 elapsed 객체에 저장.
 
    seconds := elapsed.TotalSeconds;  //double으로 초단위 시간을 return.
 
    Showmessage(FloatToStr(seconds));   //e.g.) 0.0014983 표시.
  finally
    stopWatch.Stop;
  end;
end;

• 사용방법이 간단해서 좋다.
• 리팩터링할 때 유용하게 사용할 수 있을 것 같다.

코드 출처 : Stack Overflow