Member Avatar for tajul

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

  • 2 Contributors
  • 2 Replies
  • 106 Views
  • 1 Day Discussion Span
  • Latest Post Latest Post by tajul
Member Avatar for Wolfgan 
var
  Start: integer;
begin
  Start := GetTickCount;
   ......
   // your code
   ....
  ShowMessage(IntToStr(GetTickCount - Start)); // Msec
end;
Member Avatar for tajul

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.