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

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 developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.