AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Zeitmessung einfügen

Ein Thema von maik753 · begonnen am 22. Jan 2018 · letzter Beitrag vom 25. Jan 2018
Antwort Antwort
Seite 1 von 2  1 2   
maik753

Registriert seit: 8. Dez 2017
4 Beiträge
 
#1

Zeitmessung einfügen

  Alt 22. Jan 2018, 21:38
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
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#2

AW: Zeitmessung einfügen

  Alt 22. Jan 2018, 21:49
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/
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (22. Jan 2018 um 21:53 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#3

AW: Zeitmessung einfügen

  Alt 22. Jan 2018, 22:05
Seit Delphi 2010 gibt es die Unit (System.)Diagnostics.pas mit TStopWatch. Da solltest du alles Nötige finden.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Fukiszo
(Gast)

n/a Beiträge
 
#4

AW: Zeitmessung einfügen

  Alt 22. Jan 2018, 22:10
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
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#5

AW: Zeitmessung einfügen

  Alt 22. Jan 2018, 23:12
dürfte ich das noch etwas präzisere hier vorschlagen?
Und was lässt dich vermuten, daß das präziser sein soll als TStopWatch?
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Fukiszo
(Gast)

n/a Beiträge
 
#6

AW: Zeitmessung einfügen

  Alt 22. Jan 2018, 23:23
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]

Geändert von Fukiszo (22. Jan 2018 um 23:29 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#7

AW: Zeitmessung einfügen

  Alt 22. Jan 2018, 23:33
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.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Fukiszo
(Gast)

n/a Beiträge
 
#8

AW: Zeitmessung einfügen

  Alt 22. Jan 2018, 23:56
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.
  Mit Zitat antworten Zitat
maik753

Registriert seit: 8. Dez 2017
4 Beiträge
 
#9

AW: Zeitmessung einfügen

  Alt 25. Jan 2018, 10:10
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?
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#10

AW: Zeitmessung einfügen

  Alt 25. Jan 2018, 10:27
und bei "..." soll dann was eingefügt werden?
Dein zu messender Quelltext.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz