파스칼 프로그램에서 실행 시간 측정

Question

성능을 측정하기 위해 파스칼 프로그램에서 검색 시간을 측정해야합니다. 검색 시간을 측정 할 함수 나 코드가 있으면 어떻게합니까?

감사

Answer 1

보십시오이

uses DateUtils; 
var 
    FromTime, ToTime: TDateTime; 
    DiffMinutes: Integer; 
begin 
    FromTime := Now; 

    // do your process 

    ToTime := Now; 
    DiffMinutes := MinutesBetween(ToTime,FromTime); 
end; 

Answer 2

이 중 나에게 didnt 한 일, 무료 파스칼이 (가) "이제"α- 함수 ..

이

난 그냥 추가에 "SysUtils를 사용"찾을 해달라고 때문에 Bharats 답변 및 그것은 나를 위해 잘 작동합니다!

같은 :

uses DateUtils, sysutils; 
var 
    FromTime, ToTime: TDateTime; 
    DiffMinutes: Integer; 
begin 
    FromTime := Now; 

    // do your process 

    ToTime := Now; 
    DiffMinutes := MinutesBetween(ToTime,FromTime); 
end;