Stoppuhr-Unit

Language: Deutsch
Programming Language: Delphi
Published by: pumi
Last Update: 5/16/2006
Views: 1301

Description

Eine Stoppuhr als Unit.
Benutzung:
stop.BeginStop;
//do something
stop.EndStop;
showmessage(stop.getstoptime);

Code

Display line numbers

1 unit stoptime; 2 3 interface 4 5 uses Windows,SysUtils; 6 7 type TStopTime = object 8 procedure BeginStop; 9 procedure EndStop; 10 function GetStopTime: string; 11 private 12 fBeginTime: TLargeInteger; 13 fEndTime: TLargeInteger; 14 fr: TLargeInteger; 15 end; 16 17 var stop: TStopTime; 18 19 implementation 20 21 { TStopTime } 22 23 procedure TStopTime.BeginStop; 24 25 begin 26 QueryPerformanceFrequency(fr); 27 QueryPerformanceCounter(fBeginTime); 28 end; 29 30 procedure TStopTime.EndStop; 31 begin 32 QueryPerformanceCounter(fEndTime); 33 end; 34 35 function TStopTime.GetStopTime: string; 36 begin 37 //time in ms 38 result:=format('%10.3f',[(fEndTime-fBeginTime) / fr * 1000]); 39 end; 40 41 end.

Stoppuhr-Unit

Description

Code

No comments avaiable

Add a comment