|
Registriert seit: 19. Jan 2005
Ort: Elstra
764 Beiträge
Delphi 7 Enterprise
|
Re: Stopuhr
2. Mär 2005, 16:57
Das geht folgendermaßen:
Delphi-Quellcode:
var zeit: Cardinal;
begin
zeit:= GetTickCount;
//hier wird irgendwas gemacht,
//wovon die zeit gemessen werden soll
...
zeit:= GetTickCount-zeit;
Showmessage('Der Vorgang hat '+IntToStr(zeit)+' Millisekinden gedauert.');
end;
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
|