Ausgabe der Zeit (in ms) welche eine Procedur benötigt

[hsg]

Die Funktion GetTickCount() aus dem Win-API hilft dir dabei:

Delphi-Quellcode:

procedure Test();
var
  start : Cardinal;
  dauer : Cardinal; 
begin
  start := GetTickCount();
  // Mach was langes
  dauer  := GetTickCount() - start;
end;