Dauer einer Schleife in Sek. messen?

[Borschti]

Hallo,

Ich möchte die Dauer einer Schleife in Sekunden messen, dazu speicher Ich die aktuelle Zeit vor dem Schleifeneintritt in eine Variable vom Typ TDateTime Time1 := Time; und nach dem die Schleife vorbei ist, wird wieder die derzeitige Zeit in einer Variable vom gleichen Typ gespeichert, Time2 := Time; .
Danach will ich die Differenz der beiden Zeiten mir der folgenden Funktion ermitteln:

Delphi-Quellcode:

function DateTimeDiff(date1, date2: TDateTime): string;
 var secs: integer;
     difference: real;
begin
 difference:=date2-date1;
 difference:=Frac(difference)*60;
 secs:=round(difference-Frac(difference));
 result:=IntToStr(secs)+' Sekunden';
end;

Habe mir die Funktion von Delphitreff kopiert und wenig bearbeitet weil Ich nur die Sekunden haben möchte.

Also mein Problem ist jetzt, dass mir nur Null ausgegeben wird, habe auch versucht mit sleep() die Schleife künstlich in die Länge zu ziehn aber mir wird trotzdem nur Null zurückgegeben.
Vielleicht kennt ja jemand eine bessere Funktion um die Differenz zu berechnen oder vielleicht hab ich mir auch einen Fehler in die Funktion eingebaut als Ich sie bearbeitet habe. oder man kann einfach nicht die Zeit zwischen Schleifenein- und austritt messen...

Viel zu viele mödliche Probleme

mfg
Alex

[Sharky]

Hai Borschti,

nehme für den "Start- und Endwert" lieber GetTickCount. Die Differenz sind die die ms die vergangen sind.

[Tyrael Y.]

Wahrscheinlich liegt es daran, daß die Schleife weniger als eine Sekunden braucht, das führt zum Ergebnis 0.

Benutze GetTickCount.
Das ist millisekundengenau.

Am Anfang mit GetTickCount ersten Wert holen.
Nach der Schleife nochmal den Wert holen.

Zweiten Wert vom ersten abziehen und du hast deb Millisekundenunterschied.

[Luckie]

GetTickCount wäre da wohl geeigneter:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  StartTime: DWORD;
  EndTime: DWORD;
  i: Integer;
begin
  StartTime := GetTickCount;
  for i := 0 to 1000 do
    Sleep(10);
  EndTime := GetTickCount;
  ShowMessage(IntToStr((EndTime - StartTime) div 1000) + ' Sekunden');
end;

[Borschti]

Danke für die schnellen Antworten, ich werds gleich mal ausprobieren

[Borschti]

Hat auf anhieb geklappt, danke nochmal

[hathor]

Alles viel zu ungenau!

Guckst Du hier:

http://www.delphi-forum.de/viewtopic...ighlight=sleep

[Fussball-Robby]

Zitat von hathor:

Alles viel zu ungenau!

Guckst du QueryPerformanceCounter. Viel genauer als GetTickCount. Nachteil: Bin mir nicht sicher, aber ich glaube, das umrechnen in Sec bzw. MSec ist nicht möglich.

Mfg

[Luckie]

Zitat von hathor:

Alles viel zu ungenau!

Woher weißt du, wie genau er es braucht? Und wenn schon genau, dann wollen wir auch nur die Zeit, die der Code wirklich auf der CPU ausgeführt wird und nicht die Zeit die er auf CPU Zeit wartend verbringt. Oder was ist jetzt genau?

[SirThornberry]

Zitat von Fussball-Robby:

Zitat von hathor:

Alles viel zu ungenau!

Guckst du QueryPerformanceCounter. Viel genauer als GetTickCount. Nachteil: Bin mir nicht sicher, aber ich glaube, das umrechnen in Sec bzw. MSec ist nicht möglich.

Mfg

Du liegst falsch. QueryPerformanceFrequency liefert dir die Auflösung für eine Sekunde.