Delphi 2010 a StopWatch

vložil Radek Červinka 1. března 2010 23:49

Než popíši další z nových možností u Delphi 2010, tak aby to majitelům starších Delphi nebylo líto odkáži je na podobnou opensource implementaci třídy TStopWatch - ale přijdete o několik zajímavých novinek. Tak ale zpět k současnosti - zároveň se bude jednat o pěkné jazykové konstrukce ohledně záznamu, včetně operátorů třídy - třeba Vás to bude inspirovat, mně osobně se to zamlouvá.

Delphi 2010 obsahuje unit Diagnostics.pas, který momentálně obsahuje jedinou třídu resp. rozšířený record s názvem TStopWatch, který mimochodem obsahuje pěkné použití rozšířeného recordu a class operatory.

    1type
    2  TStopwatch = record
    3  strict private const TicksPerMillisecond: Int64 = $2710;
    4  strict private const TicksPerSecond: Int64 = $989680;
    5  strict private class var TickFrequency: Double;
    6  strict private
    7    FElapsed: Int64;
    8    FRunning: Boolean;
    9    FStartTimeStamp: Int64;
   10    function GetElapsed: TTimeSpan;
   11    function GetElapsedDateTimeTicks: Int64;
   12    function GetElapsedMilliseconds: Int64;
   13    function GetElapsedTicks: Int64;
   14    class procedure InitStopwatchType; static;
   15  public
   16    class function Create: TStopwatch; static;
   17    class function GetTimeStamp: Int64; static;
   18    procedure Reset;
   19    procedure Start;
   20    class function StartNew: TStopwatch; static;
   21    procedure Stop;
   22    property Elapsed: TTimeSpan read GetElapsed;
   23    property ElapsedMilliseconds: Int64 read GetElapsedMilliseconds;
   24    property ElapsedTicks: Int64 read GetElapsedTicks;
   25    property IsRunning: Boolean read FRunning;
   26  public class var Frequency: Int64;
   27  public class var IsHighResolution: Boolean;
   28  end;

Základem je velmi šikovný nový typ TTimeSpan definovaný v TimeSpan.pas.

    1type
    2  TTimeSpan = record
    3// vynechány privátní a ne public pole
    4  public const
    5    TicksPerMillisecond = 10000;
    6    TicksPerSecond = 1000 * Int64(TicksPerMillisecond);
    7    TicksPerMinute = 60 * Int64(TicksPerSecond);
    8    TicksPerHour = 60 * Int64(TicksPerMinute);
    9    TicksPerDay = 24 * TIcksPerHour;
   10  public
   11    constructor Create(ATicks: Int64); overload;
   12    constructor Create(Hours, Minutes, Seconds: Integer); overload;
   13    constructor Create(Days, Hours, Minutes, Seconds: Integer); overload;
   14    constructor Create(Days, Hours, Minutes, Seconds, Milliseconds: Integer); overload;
   15
   16    function Add(const TS: TTimeSpan): TTimeSpan; overload;
   17    function Duration: TTimeSpan;
   18    function Negate: TTimeSpan;
   19    function Subtract(const TS: TTimeSpan): TTimeSpan; overload;
   20
   21    class function FromDays(Value: Double): TTimeSpan; static;
   22    class function FromHours(Value: Double): TTimeSpan; static;
   23    class function FromMinutes(Value: Double): TTimeSpan; static;
   24    class function FromSeconds(Value: Double): TTimeSpan; static;
   25    class function FromMilliseconds(Value: Double): TTimeSpan; static;
   26    class function FromTicks(Value: Int64): TTimeSpan; static;
   27
   28    class function Parse(const S: string): TTimeSpan; static;
   29    class function TryParse(const S: string; out Value: TTimeSpan): Boolean; static;
   30
   31    // class operatory
   32    class operator Add(const Left, Right: TTimeSpan): TTimeSpan;
   33    class operator Subtract(const Left, Right: TTimeSpan): TTimeSpan;
   34    class operator Equal(const Left, Right: TTimeSpan): Boolean;
   35    class operator NotEqual(const Left, Right: TTimeSpan): Boolean;
   36    class operator GreaterThan(const Left, Right: TTimeSpan): Boolean;
   37    class operator GreaterThanOrEqual(const Left, Right: TTimeSpan): Boolean;
   38    class operator LessThan(const Left, Right: TTimeSpan): Boolean;
   39    class operator LessThanOrEqual(const Left, Right: TTimeSpan): Boolean;
   40    class operator Negative(const Value: TTimeSpan): TTimeSpan;
   41    class operator Positive(const Value: TTimeSpan): TTimeSpan;
   42//!implicitni konverze na string
   43    class operator Implicit(const Value: TTimeSpan): string;  
   44    class operator Explicit(const Value: TTimeSpan): string;
   45
   46    property Ticks: Int64 read FTicks;
   47    property Days: Integer read GetDays;
   48    property Hours: Integer read GetHours;
   49    property Minutes: Integer read GetMinutes;
   50    property Seconds: Integer read GetSeconds;
   51    property Milliseconds: Integer read GetMilliseconds;
   52    property TotalDays: Double read GetTotalDays;
   53    property TotalHours: Double read GetTotalHours;
   54    property TotalMinutes: Double read GetTotalMinutes;
   55    property TotalSeconds: Double read GetTotalSeconds;
   56    property TotalMilliseconds: Double read GetTotalMilliseconds;
   57
   58    class property MinValue: TTimeSpan read FMinValue;
   59    class property MaxValue: TTimeSpan read FMaxValue;
   60    class property Zero: TTimeSpan read FZero;
   61  end;

Ale zpět k TStopWatch. Vytvoříme novou aplikaci, na formulář dáme tlačítko a TListBox. U tlačítka napíšeme uvedenou obsluhu.

    1implementation
    2uses
    3  Diagnostics;
    4{$R *.dfm}
    5
    6procedure TForm1.btn1Click(Sender: TObject);
    7var
    8  sw:TStopWatch;
    9  xIndex: Integer;
   10begin
   11  sw.Reset;
   12  sw.Start;
   13  lst1.Clear;
   14  for xIndex := 0 to 1000 - 1 do
   15    lst1.Items.Add(IntToStr(Random(1000000)));
   16  sw.Stop;
   17  ShowMessage(sw.Elapsed); // poznámka níže
   18end;

Na řádku 17 se využije právě implicitní konverze na string, viz. class operator Implicit. Sčítání, odčítání atd. je realizováno dalšími operátory.

Ještě bych upozornil, že třída použije QueryPerformanceCounter pokud je volání dostupné, jinak použije klasicky GetTickCount (viz. IsHighResolution).


Nabízíme Delphi školení na různá témata, primárně ve Vaší firmě.

Tagy: ,

Novinky

Komentáře

22.4.2013 12:38:36 #

Daniel Andraščík

  Jeden cas som sa tiez hral z funkciami QueryPerformanceCounter a QueryPerformanceFrequency. Nepotreboval som vysoke rozlisenie, skor som potreboval 64bitovu funkciu GetTickCount na starsich windowsoch. Fungovalo mi to, ale uz si presne nepamatam ako to presne bolo ale narazil som niekde na forach ze tieto funkcie QueryPerformanceCounter a QueryPerformanceFrequency mali nejaky problem pri nejakych druhoch chipsetov, alebo take nieco. Neviem nakolko to bola pravdiva informacia, sam som s tymito funkciami problem nemal.
  Ale vzhladom na to ze programujem priemyselne scada aplikacie, ktore bezia nezriedka cele mesiace, tak som to neriskoval a vytvoril som si GetTickCount64 pomocou trosku skaredeho riesenia s thread var a clasickou funkciou GetTickCount32 a sledovanim "pretecenia" 32bitov. Este stastie ze novsie windowsi uz maju nativnu GetTickCount64 funkciu.

Daniel Andraščík

22.4.2013 12:48:00 #

Daniel Andraščík

Viem ze moj predchadzajuci komentar je trosku mimo zameru tohto clanku. Pouzitie rozsirenych rekorodov TStopWatch a TTimeSpan je tu fakt zobrazene prikladne. Hned ma vsak zaujimalo akym sposobom rekordy odmeriavaju cas. Zvolena funkcia QueryPerformanceCounter zrejme v dnesnych dobach uz ziadny problem nepredstavuje (a mozno problem nebol ani v minulosti). Ale mozno ze stale ano. Staci dat do googlu "queryperformancecounter problems".

Daniel Andraščík

Komentování ukončeno

Naše nabídka

Partial English version.

MVP
Ing. Radek Červinka - Embarcadero MVP
profil na linkedin, Twitter:@delphicz

Nabízím placené poradenství a konzultace v oblasti programování a vývoje SW.
Dále nabízíme i vývoj speciálního software na zakázku.

Neváhejte nás kontaktovat (i ohledně reklamy nebo burzy práce).

Pokud chcete podpořit tento server libovolnou částkou, můžete použít PayPal. Moc děkuji.

Delphi Certified Developer

O Delphi.cz

Delphi je jediný moderní RAD nástroj podporující tvorbu nativních aplikací pro platformu Win32, Win64 , Mac OSX a na iPhone a Android (s výhledem na další platformy díky FireMonkey) na současném trhu (včetně Windows 8.1).

V současnosti je světová komunita přes dva miliónů vývojářů.

Delphi.cz je nezávislý portál pro uživatele Delphi. Portál není koncipován pro úplné začátečníky, i když i ti se zde nebudou nudit, ale spíše na programátory, kteří již něco znají a chtějí své znalosti dále rozvíjet a sledovat novinky.

Anketa

Poslední komentáře

Comment RSS