Advertisement
KennasSticky

Delphi_SolutionTime

Jan 23rd, 2022
909
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   start, freq, stop: int64;
  4. begin
  5.   QueryPerformanceFrequency(freq);
  6.   QueryPerformanceCounter(start);
  7.  
  8.   // ALL PROGRAM PROCESSES
  9.  
  10.   QueryPerformanceCounter(stop);
  11.   ShowMessage(FloattostrF((stop - start) / freq, ffNumber, 10, 3)); // Solution time will be shown upon program completion.
  12. end;
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement