Zeit automatisch stoppen

[Noedel]

Delphi-Quellcode:

...
procedure bla();
var zeit_vor, Zeit_nach, Zeit_gesamt : Int64;
begin
  zeit_vor:=GetTickCount;
  Sortiere(...);
  zeit_nach:=GetTickCount;
  Zeit_gesamt:=Zeit_nach - Zeit_vor;
  Showmessage('Sortierung dauerte '+IntToStr(Zeit_gesamt)+' ms');
end;