Rechenzeit stoppen

[Lantis]

Hi,
mann könnte es doch sicher auch einfachso machen:

Delphi-Quellcode:

var start:TTime;

begin
  start:=now;

  ...//sortieren


  ShowMessage(TimeToStr(now-start));
end;

nur so für grobe Sekunden

Gruß Lantis