Zeitdifferenz berechnen

[Alci]

Liebe Forenuser!

Ich habe verschiedene Sortieralgorithmen programmiert und nun möchte ich nach Vergleich der Komplexität, gerne die arbeitende Rechendauer ausrechnen. Ich habe schon Ansätze programmiert doch leider funktioniert es nicht so, wie ich es will. Meine Gedanken:

• Zuerst wird die Zeit1 mit "Time" gespeichert
• Danach wird der Sortieralgorithmus ausgeführt
• Nun wird wieder eine Zeit2 mit "Time" gespeichert
• Die Differenz aus Zeit2 und Zeit1 wird gebildet und ausgegeben

Leider habe ich vergeblich versucht, alles in Millisekunden auszugeben.
Ich habe folgende Sachen versucht:

Code: Alles auswählen

FormatDateTime('hh:nn:ss.zzz', Now)

Welche Dateitypen müssen die verschieden Variablen haben?

Code: Alles auswählen

Zeit1, Zeit2 : TDateTime;
Diff : real;

Ich hoffe mir kann jemand weiterhelfen.

[marcov]

Alle TDateTime, und dann diff:=time2-time1; ms:=round(diff*86400000); // 86400000 weil es 24*60*60*1000 ms in einem Tag gibt.

[monta]

Alternativ kannst du auch einfach mit GetTickCount die aktuelle Zeit in ms angeben lassen (integer) und daraus die Differenz bilden, ähnlich wie bspw. in diesem Beispiel:
viewtopic.php?p=10536#p10536

[Jochen]

Hi,

schau mal hier:

http://delphi.about.com/od/windowsshellapi/a/delphi-high-performance-timer-tstopwatch.htm

Dort ist alles schön erklärt, den Code kann man direkt in Lazarus verwenden. Ich habs einfach in eine Unit gepackt. Funktioniert wunderbar!


Jochen

TStopwatch.pas

TStopWatch von delphi.about.com

(2.66 KiB) 95-mal heruntergeladen

[Alci]

@marcov,
leider funktioniert es nicht so, denn die Zeit wird nicht in Millisekunden ausgegeben sondern als Uhrzeit 00:00:00.

@Jochen,
ich kriege beim Kompilieren immer die Fehlermeldung, dass der identifier TStopWatch nicht bekannt ist, ich habe aber Stopwatch.pas in das Projekt eingefügt.

[theo]

Das einfachste ist Montas Vorschlag:

Code: Alles auswählen

uses LCLIntf
....
var Tick:Cardinal;
...
Tick:=GetTickCount;
 
//Tu was 
 
Caption:=inttostr(GetTickCount-Tick);

[theo]

TStopwatch.pas

Hier stimmen Unit- und Dateinamen nicht überein.

[Alci]

Das einfachste ist Montas Vorschlag:

Code: Alles auswählen

uses LCLIntf
....
var Tick:Cardinal;
...
Tick:=GetTickCount;
 
//Tu was 
 
Caption:=inttostr(GetTickCount-Tick);

Danke es hat so funktioniert, und danke an Monta

[Jochen]

TStopwatch.pas

Hier stimmen Unit- und Dateinamen nicht überein.

... ähm, das führt zu einem Fehler, tschuldigung! Die Unit soll natürlich Stopwatch.pas heißen.

Theos/Montas Vorschlag ist viel einfacher und eleganter. Werde ich in Zukunft für Vergleiche zwischen Routinen auch benutzen. Danke!


Jochen

[Alci]

Nochmal zu GetTickCount. Leider sind meine Sortieralgorithmen so schnell, dass nur 0-1 ms als Ergebnis rauskommen. Kann man es nicht noch präziser errechnen??

EDIT: Ich habe jetzt EpikTimer gefunden, der berechnet alles noch genauer.

[af0815]

[quote="Alci"]Nochmal zu GetTickCount. Leider sind meine Sortieralgorithmen so schnell, dass nur 0-1 ms als Ergebnis rauskommen. Kann man es nicht noch präziser errechnen?[\quote]Ev. mehr Schleifendurchläufe verwenden.