OSZ Handel I
Informatik

D L I B - eigene Klassen
TZeit

S. Spolwig
 

 

[ Informatik | Unterrichtsmaterialien ]


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

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



 05. April 2006   ©  Siegfried Spolwig

page_top