|
Registriert seit: 19. Jan 2005
Ort: Elstra
764 Beiträge
Delphi 7 Enterprise
|
Re: Rechenzeit stoppen
11. Feb 2005, 22:21
Man kann das auch mit GetTickCount machen:
Delphi-Quellcode:
var start: Cardinal;
i: Integer;
begin
start:= GetTickCount;
for i:=0 to 9999 do begin
//Mach irgendwas...
end;
start:= GetTickCount - start;
ShowMessage('Zeit: '+IntToStr(start)+' ms');
end;
[Edit]
Zur Erklärung:
GetTickCount liefert die Zeit seit Systemstart in Millisekunden.
[/Edit]
MfG
Binärbaum
There are exactly 10 kinds of people: those who understand binary, and those who don't.
---
"Software reift beim Kunden. Bei Hardware ist es anders: Hardware fault beim Kunden." - Rainer G. Spallek
|