uses
.., System.Diagnostics;
var
StopWatch: TStopWatch;
begin
//생성과 동시에 시작
StopWatch := TStopWatch.StartNew;
//생성 후 수동 시작
StopWatch := TStopWatch.Create;
StopWatch.Start;
..
//멈춤
StopWatch.Stop;
ShowMessage(
FormatDateTime(
'hh:nn:ss:zzz',
StopWatch.ElapsedMilliseconds/MSecsPerDay
)
);
end;
반응형