Zeitmessung einfügen

[Fukiszo]

dürfte ich das noch etwas präzisere hier vorschlagen?

Code:

type
  TInt64 = TLargeInteger;
var
  Frequency, lpPerformanceCount1, lpPerformanceCount2 : TLargeInteger;
  Messung: String;

begin
  QueryPerformanceCounter(TInt64((@lpPerformanceCount1)^));

  // zeitmessung starten
  hier_deine_prim_funktio_prozedur_starten;

  QueryPerformanceCounter(TInt64((@lpPerformanceCount2)^));
  QueryPerformanceFrequency(TInt64((@Frequency)^));

  // rein in einen lesbaren string, zeit angegeben in nanosekunden
  Messung := (IntToStr(Round(1000000 * (lpPerformanceCount2.QuadPart -
                       lpPerformanceCount1.QuadPart) / Frequency.QuadPart)));
end;

grüße