델파이 함수 실행 시간 간단히 체크 하기

델파이를 사용해서 함수 실행 시간 체크하는 방법 입니다.

 

uses

DateUtils;

.

 

.

//Form 키 다운시 실행

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

var
  astr:string;
  ai:integer;

  cStartTime,cEndTime: TDateTime;
  cElapsedTime: Int64;

begin

  cStartTime:=Now;   //함수 실행 시간 재기

 

  //실행 시간 체크할 함수
  for ai := 0 to 10000000 do begin
    astr:=inttostr(11234567);
  end;

 

  cEndTime := Now;
  cElapsedTime:=MilliSecondsBetween(cStartTime, cEndTime);

 

 

  //폼 캡션바이 체크한 시간을 출력해 본다
  Form1.caption:=IntToStr((cElapsedTime));

end;

end.