Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
12. Jun 2020
Und das war auch noch Sherlock... Asche auf mein Haupt. Hab halt Sherlocks Methode übernommen, nicht weiter zu lesen...:)
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
12. Jun 2020
Nee. Da war die falsche Platzierung der Zeitmessung daran schuld. Wenn man sie zu Beginn und zum Ende der Schleifen gesetzt hätte, dann wäre sofort klar gewesen, dass irgendwo dadrin die Zeit verbraten werden musste (wenn das nicht schon vorher klar war). Und wenn man dann schrittweise in die Schleife vorgerückt wäre, dann wäre innerhalb kürzester Zeit klar gewesen, wo der Zeitfresser sitzt.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
10. Jun 2020
... und übrigens eine endgeile Evaluation meines Codevorschlags...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
10. Jun 2020
Ja, genau, und neulich ging es nur andersrum... Egal, sLineBreak habe ich schon 10 x vergessen, jetzt versuche ich ein 11. Mal...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
10. Jun 2020
Mache ich auch, aber neulich ging #10#13 nicht (hab vergessen wo).
TStopwatch ist bestimmt toll, aber bin zu träge, um mich umzugewöhnen, und man muss auch immer System.Diagnostics in uses haben. Mit der globalen Variablen setze ich meine Funktion ohne jeden Aufwand.
PS: Und man kann die Namen der interessierenden Prozesse nicht angeben.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
10. Jun 2020
Manchmal geht #10#13, manchmal #10, manchmal #13, ich probiere es einfach aus. #9 geht in Showmessage leider nicht, daher meine Konstruktion mit Leerzeichen.
Vielleicht noch hier die Version mit QueryPerformanceCounter:
function HLStoppUhr(Start:Boolean;var Zeitwert:Int64;MSek:Boolean = False;Meldung:Boolean = True):Extended;
var Frequenz,EndWert:Int64;
begin
If Start then begin
...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
10. Jun 2020
Ich bin schon ein bisschen baff, weil ich dauernd an meinen Routinen (Grafikverarbeitung) herumbastle und schaue, ob ich sie nicht ein bisschen schneller kriege. Ich nehme dazu schlicht und einfach GetTickCount, in den seltensten Fällen QueryPerformanceCounter, und ich dachte, alle anderen täten das auch.
Meine einfachste Messvorrichtung geht so:
procedure Zeit(var...