period.pas

来自「解码器是基于短语的统计机器翻译系统的核心模块」· PAS 代码 · 共 66 行

(*
* PERIOD.DPR  -  Time period utilities
*
* Copyright (C) 2006 by Yidong Chen <[e-mail]>
Institute of Artificial Intelligence, Xiamen University

* Begin       : 09/18/2006
* Last Change : 09/18/2006
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
*)

UNIT PERIOD;

INTERFACE

TYPE
  TPeriod=CLASS
  PRIVATE
    StartTime, EndTime: LongInt;
  PUBLIC
    CONSTRUCTOR Create;
    PROCEDURE Start;
    PROCEDURE Stop;
    FUNCTION TimeElapsed: Real;
  END;

IMPLEMENTATION

USES Windows;

CONSTRUCTOR TPeriod.Create;
BEGIN
  INHERITED Create;
  StartTime:=0; EndTime:=0;
END;

PROCEDURE TPeriod.Start;
BEGIN
  StartTime:=GetTickCount;
END;

PROCEDURE TPeriod.Stop;
BEGIN
  EndTime:=GetTickCount;
END;

FUNCTION TPeriod.TimeElapsed: Real;
BEGIN
  Result:=(EndTime-StartTime)/1000;
END;

END.