Zeitmessung einfügen

[maik753]

Hi ich habe ein Programm entwickelt, welches mir Primzahlen ermittelt. Jetzt würde ich noch gerne eine Zeitmessung einfügen welche misst, wie lange es dauert, um die Primzahl zu ermitteln. habt ihr Ideen wie ich das anstellen kann?

LG Maik:-D

[himitsu]

Im Prinzip geht es immer nach dem selben Muster:

Delphi-Quellcode:

var Start, Dauer: TDateTime;

Start := Now;
...
Dauer := Now - Start;
Caption := TimeToStr(Dauer);  // oder FormatDateTime SecondsBetween MinutesBetween usw.

Delphi-Quellcode:

var Start, Dauer: Cardinal;

Start := GetTickCount;
...
Dauer := GetTickCount - Start;
Caption := Format('%d ms', [Dauer]);

Es gibt seit ein paar Jahren auch eine Messkomponente im Delphi, aber ich habe grade vergessen wie die heißt.
Da ginge es in etwa so:

Delphi-Quellcode:

xxx.Start;
...
xxx.Stop;
Caption := Format('%d ms', [xxx.Duration]);

https://www.delphi-treff.de/tipps-tr...-durchfuehren/

[Uwe Raabe]

Seit Delphi 2010 gibt es die Unit (System.)Diagnostics.pas mit TStopWatch. Da solltest du alles Nötige finden.

[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

[Uwe Raabe]

Zitat:

Zitat von Fukiszo (Beitrag 1391696)

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

Und was lässt dich vermuten, daß das präziser sein soll als TStopWatch?

[Fukiszo]

Ich kenne seine Delphi Version nicht, Du etwa? TStopWatch gibt es nicht überall, mein Beispiel schon. (das Type halt ausklammern wenn vorh. Delphi TInt64 hat)

[EDIT] ab delphi 4 so nutzbar [/EDIT]

[Uwe Raabe]

Zitat:

Zitat von Fukiszo (Beitrag 1391701)

Ich kenne seine Delphi Version nicht, Du etwa?

Nein. Deswegen habe ich die Mindestversion ja auch erwähnt. Aber das war ja auch nicht die Frage.

[Fukiszo]

Zitat:

Zitat von Uwe Raabe (Beitrag 1391695)

Delphi 2010

Einigen wir uns auf

Delphi 3 bis eine version weniger deinem genannten Requirement Delphi2010 = mein variante gut
(oder halt die regulären von himitsu, die ich damit lediglich ergänzen wollte)

Delphi2010 bis Delphi was auch immer für Version = deine variante gut

Einverstanden?
Und ein "Jawohl das hab ich gesucht nun klappts, freu freu freu" konnt ich auch noch nicht lesen.

Grüße und Gute Nacht

(ich versteh sachen meist besser wenn ich code seh und nicht nur einen namen einer methode die mir grad nicht vorliegt)

edit: ich hoffe alle fragen hiermit klären zu können.

[maik753]

Zitat:

Zitat von himitsu (Beitrag 1391693)

Im Prinzip geht es immer nach dem selben Muster:

Delphi-Quellcode:

var Start, Dauer: TDateTime;

Start := Now;
...
Dauer := Now - Start;
Caption := TimeToStr(Dauer);  // oder FormatDateTime SecondsBetween MinutesBetween usw.

Delphi-Quellcode:

var Start, Dauer: Cardinal;

Start := GetTickCount;
...
Dauer := GetTickCount - Start;
Caption := Format('%d ms', [Dauer]);

Es gibt seit ein paar Jahren auch eine Messkomponente im Delphi, aber ich habe grade vergessen wie die heißt.
Da ginge es in etwa so:

Delphi-Quellcode:

xxx.Start;
...
xxx.Stop;
Caption := Format('%d ms', [xxx.Duration]);

https://www.delphi-treff.de/tipps-tr...-durchfuehren/

und bei "..." soll dann was eingefügt werden?

[TiGü]

Zitat:

Zitat von maik753 (Beitrag 1391921)

und bei "..." soll dann was eingefügt werden?

Dein zu messender Quelltext. :idea: