delphi CONSOLE 控制台计算程序运行耗时

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses

  System.SysUtils,System.Diagnostics;

  var

  Stopwatch: TStopwatch;

begin

  try

  Stopwatch.Reset; //<<<--- this was missing

  Stopwatch.Start;

  sleep(3000);

  Stopwatch.Stop;

  Writeln(format('Took %.3f seconds', [Stopwatch.Elapsed.TotalSeconds]));

  Readln;

    { TODO -oUser -cConsole Main : Insert code here }

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;

end.