unit uZeit;
(* ******************************************************************** *)
(*                                                                      *)
(* K L A S S E : TZeit                                                  *)
(* -------------------------------------------------------------------- *)
(* Version     : 1.1                                                    *)
(* Autor       : S. Spolwig, OSZ-Handel I, 10997 Berlin                 *)
(*                                                                      *)
(* Beschreibung: stellt ein Objekt ZEIT vom Typ TZeit mit Stopuhrfunk-  *)
(*               tionen zur Verfügung.                                  *)
(* Compiler    : DELPHI 3.0                                             *)
(* Aenderung   : V. 1.0   02-MAY-99                                     *)
(*               V. 1.1   15-MAR-00                                     *)
(* ******************************************************************** *)

interface
(* ==================================================================== *)
uses  Windows, Messages, Sysutils, Forms;

type
  TZeit = class (TObject)
    protected
    Startzeit,
    Stopzeit,
    Laufzeit  : longint;
    public
    function  GetDatum  : string;             virtual;
    function  GetUhrzeit: string;             virtual;
    function  GetStart  : longint;            virtual;
    function  GetStop   : longint;            virtual;
    function  GetStopZeit: longint;           virtual;
    function  GetStopZeitForm : string;       virtual;
    procedure SetPause (millisec : longint);  virtual;
    procedure Start;                          virtual;
    procedure Stop;                           virtual;
  end;

var Zeit : TZeit;

(* ----------------- B e s c h r e i b u n g -------------------------

Oberklasse    : TObject
Bezugsklassen : s.o.

Methoden

GetDatum
  Anfrage: aktuelles Datum liefern im Format : TT.MM.JJ

GetZeit
  Anfrage: aktuelle Uhrzeit liefern im Format : STST:MM.SS

GetStart, GetStop
  Anfrage: liefert Zeitpunkt in ms.

GetStopZeit
  Anfrage: Verstrichene Zeit zwischen Start und Stop in MilliSek.

GetStopZeitForm
   Anfrage: Verstrichene Zeit zwischen Start und Stop im Format 0000:000

Start
  Auftrag: Stopuhr starten

Stop
  Auftrag: Stopuhr anhalten und Laufzeit merken

SetPause
  Auftrag: Zeitschleife in Millisek. starten

 ---------------------------------------------------------------------- *)