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

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

 

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.

 

 

코딩 자율학습 나도코딩의 파이썬 입문 - 프로그래밍 언어 | 쿠팡

 

세상에서 가장 쉬운 코딩책:6개월 만에 비전공자에서 개발자가 된 위캔코딩의 기초 코딩 수업 -

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