Delphi	Material erste Schritte Variablen Typen Datenstruktur Zuweisung Komponenten StyleGuide Kontrollstrukturen Fehler Debuggen Funktionen Prozeduren Grafik Ereignisse Programme Unit OOP Benutzung einer Klasse Projektverwaltung Muster Format String-Operationen Datei Dialoge Menü Datenbank WinAPI Zufallszahlen RE Exceptions alte Delphiseite Pfad: Startseite / Fächer / Informatik / Delphi
Autor: mk 10.12.2005 10:53:52 1355

Eine einfache Zeitmessung (Auflösung: 10ms) läßt sich mit "GetTickCount" realisieren.

  ....
  at := GetTickCount; // Anfangszeit

  // hier wird etwas erledigt, was Zeit kostet

  et := GetTickCount; // Endzeit

  ......
  eIterZeit.text := IntToStr(et-at); // Zeit et-at in Ticks
  ....

Wesentlich genauer ist der Hochauflösungszähler (Auflösung: 0,00083ms) (R150,[DK]):

  ....
  c,n1,n2 : TLargeInteger;
  ....
  QueryPerformanceFrequency(c); // Auflösung bestimmen
  ....
  QueryPerformanceCounter(n1);

  // hier wird etwas erledigt, was Zeit kostet

  QueryPerformanceCounter(n2);
  ....
  eIterZeit.text := Format('%g',[(n2-n1)/c ]); // Zeit (n2-n1)/c in s
  ....

In obigem Quelltext-Auszug wird die Funktion Format zur Formatierung der Ausgabe verwendet.

lokal