![]() |
Re: Die Zeit stoppen ohne Gettickcount
Dynamische Arrays beginnen immer mit dem Index 0! Da dein Array laenge lang ist, knallt es natürlich am Ende von
Delphi-Quellcode:
(Btw: geniale Einrückung :mrgreen: ).
for i:=1 to laenge do
begin a[i]:=strtoint(form1.memo1.lines[i-1]); end; Also muss es
Delphi-Quellcode:
oder gleich
for i:=1 to laenge do
begin a[i-1]:=strtoint(form1.memo1.lines[i-1]); end;
Delphi-Quellcode:
heißen.
for i:=0 to laenge-1 do
begin a[i]:=strtoint(form1.memo1.lines[i]); end; [edit]Ja, in der "bubble"-Prozedur genauso |
Re: Die Zeit stoppen ohne Gettickcount
es geht auch ohne gettickcount: einfach nen timer nehmen, interval 1 (1 millisekunde) und dann im onTimer Event eine countvariable erhöhen :mrgreen: schwupps hast du eine tolle stoppuhr, ohne gettickcount ;)
|
Re: Die Zeit stoppen ohne Gettickcount
Zitat:
Aenogym |
Re: Die Zeit stoppen ohne Gettickcount
Zitat:
|
Re: Die Zeit stoppen ohne Gettickcount
Zitat:
|
Re: Die Zeit stoppen ohne Gettickcount
Ein Timer macht wohl ab 30-50ms Sinn. Da Timer die geringste Priorität überhaupt haben kannst du auch das auf einem ausgelasteten System knicken.
GetTickCount dürfte wohl die einfachste Möglichkeit sein relativ ( :!: ) genau die Zeit zu messen. ;) Zitat:
|
Re: Die Zeit stoppen ohne Gettickcount
Zitat:
[edit]Viel zu spät :roll: . |
Re: Die Zeit stoppen ohne Gettickcount
Zitat:
Wobei das jedoch schon wieder haarspaleterei ist. Wenn man genug durchläufe macht, sodass Abweichungen von 10-20ms zu anderen Algos entstehen, sind die 1-2ms Abweichung eigentlich egal ;) |
Re: Die Zeit stoppen ohne Gettickcount
Zu TTimer:
geringstes funktionierendes Intervall unter Win XP: 10ms unter Win 9x: 50ms Also 1ms ist purer Schwachsinn, da du das nie erreichen wirst. |
Re: Die Zeit stoppen ohne Gettickcount
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:36 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz