Class TForm1 (unit Rtcmain)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);

here in my application a hardware module is activated: EPC1.

procedure FormCreate(Sender: TObject);


procedure Timer(Sender: TObject);

this 'normal' timer is for display update

procedure Timer1Timer(Sender: TObject);

reset watch clock

Properties

Events

Variables

Button1 : TButton;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


RtcTimer1 : TRtcTimer;


Timer1 : TTimer;



Constructors


Functions


procedure Button1Click(Sender: TObject);

here in my application a hardware module is activated: EPC1.Active :=True; {init timer measurement


procedure FormCreate(Sender: TObject);


procedure Timer(Sender: TObject);

this 'normal' timer is for display update


procedure Timer1Timer(Sender: TObject);

reset watch clock


Properties


Events


Variables


Button1 : TButton;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


RtcTimer1 : TRtcTimer;


Timer1 : TTimer;