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:

[maik753]

Zitat:

Zitat von TiGü (Beitrag 1391927)

Zitat:

Zitat von maik753 (Beitrag 1391921)

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

Dein zu messender Quelltext. :idea:

einfach kopieren und einfügen?:)

[Fukiszo]

zeig mal code dann kann man besser helfen

[LTE5]

Zitat:

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)

10.2 Starter ist kostenlos. Und wenns kostenlos ist, sollte man sich das auch mal besorgen (für den Fall, dass man noch immer auf D7 reitet).

Delphi-Quellcode:

uses Diagnostics;

procedure TForm1.Button1...;
var
 SW: TStopWatch;
begin
 SW := TStopWatch.Create;
 SW.Start;

 // Primezahlen berechnen

 SW.Stop;
 showmessage(SW.EllapsedMilliseconds.ToString + ' ms vergangen');
end;

Warum so unglaublich kompliziert mit dem alten QueryCounter-Gedöns wenns auch wesentlich einfacher mit der StopWatch geht?

[Fukiszo]

Zitat:

Zitat von LTE5 (Beitrag 1391953)

für den Fall, dass man noch immer auf D7 reitet

bevor ich auf so etwas OT eingeh bastel ich lieber ein beispiel, siehe anhang ;-)

edit: bild für highscore hab ich angeheftet

Grüße

[LTE5]

Zitat:

bevor ich auf so etwas OT eingeh bastel ich lieber ein beispiel, siehe anhang

Geschickt formuliert, aber dein Anhang ist auch 100% OT.

Wer heute noch darauf achtet, ob eine Exe-Datei 500 KB oder 5000KB hat... naja... der wird auch noch ein Modem benutzen wie es scheint ;)