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

"이 포스팅은 쿠팡 파트너스 활동의 일환으로, 이에 따른 일정액의 수수료를 제공받습니다."

로켓배송으로 빠르게, 로켓와우 멤버십으로 할인과 무료 반품까지 | 쿠팡

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

 

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.