Stoppuhr-Unit

Sprache: Deutsch
Programmiersprache: Delphi
Veröffentlicht von: pumi
Letzte Änderung: 16.05.2006
Aufrufe: 2294

Beschreibung

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

Code

Zeilennummern anzeigen

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.

Noch kein Kommentar vorhanden

Dieses Snippet kommentieren

Name *

E-Mail (wird nicht angezeigt) *

Website

Kommentar *

Sicherheitscode *