델파이는 정확한 타이밍 타이머 TStopwatch를 사용

System.Diagnostics 네임 기준 유닛

특성 :

　　현재 인스턴스의 총 실행 시간 측정 결과를 얻을 경과.
　　총 런타임 ElapsedMilliseconds은 (밀리 초) 본 예제의 측정 결과를 얻을 수 있습니다.
　　총 런타임 ElapsedTicks는 (타이머 틱으로 표시) 현재 인스턴스의 측정 결과를 얻을 수 있습니다.
　　지표의 값 경우 실행되는 타이머 스톱워치를 얻을 수 isRunning는.

방법

　　GetTimestamp 최소 시간을 타이머 메커니즘 유닛의 현재 수를 얻었다.
　　리셋 정지 시간 간격으로 측정하고, 운전 시간은 제로로 리셋된다.
　　다시 시작 정지 시간 간격 측정, 실행 시간을 0으로 재설정하고, 시간 측정 작업을 시작합니다.
　　시작하거나 운영 시간을 일정 시간 간격을 측정하기 위해 계속 시작합니다.
　　스톱워치 StartNew 새로운 인스턴스가 제로로, 런타임 속성을 초기화 한 후 작동 시간을 측정하기 시작합니다.
　　정지 정지는 실행 시간의 시간 간격을 측정

 

예 :

1  // / <요약> 
2  // /测试TStopwatch 
3  // / </ 요약> 
4  // / <매개 변수 이름 = "발신자"> </ PARAM> 
5  절차 TForm1.btn1Click (발신자 : TObject의);
6  VAR 
7    타이머 : TStopwatch;
8    I, N : INT64;
9    TT : INT64;
10은  시작 
11    = TStopwatch : 타이머를. 만들기 ;
12    // /开始计时
13    timer.Start;
(14)    N = 0 ;
(15)    에 대한 I : = 0  에 100000000는  않는다 
16    선두 
17.      Inc의 인 (N-)
 (18)는    최종 ;
 19.    // / 종료 타이머 
(20)가    Timer.stop;
 21이다    // 몇 밀리 초 / 수집 간격 
(22)은    TT = timer.ElapsedMilliseconds;   // 408 
(23)가  최종 ;