I would like to calculate the execution time of my bubleshort program in pascal.
is there any function available to enable it??

Recommended Answers

var
  Start: integer;
begin
  Start := GetTickCount;
   ......
   // your code
   ....
  ShowMessage(IntToStr(GetTickCount - Start)); // Msec
end;
Jump to Post

All 2 Replies

var
  Start: integer;
begin
  Start := GetTickCount;
   ......
   // your code
   ....
  ShowMessage(IntToStr(GetTickCount - Start)); // Msec
end;

it doesnt work on TPW1.5 :(

Be a part of the DaniWeb community

We're a friendly, industry-focused community of 1.21 million developers, IT pros, digital marketers, and technology enthusiasts learning and sharing knowledge.