Voici comment se présente l'unité de base :

 
unit Unit1;
 
 
 
{$mode objfpc}{$H+}
 
 
 

interface
 
uses
  Classes, SysUtils, 
  LResources, Forms, Controls, 
  Graphics, Dialogs; 
 
type
  TForm1 = class(TForm)
    private {private declarations}
    public  {public declarations}
  end;
 
var  Form1: TForm1;

 
 
 
 
implementation
 
 
 
 

initialization
 
 
 
{$I unit1.lrs}
 
 

end.

On dépose maintenant trois Label(s) côte à côte sur la fiche (LbHeure, LbMinute, LbSeconde) et un Timer. Mettons la propriété Caption de la Fiche à « Il est exactement ». Nous obtenons ceci :



Le Timer étant sélectionné, dans l'inspecteur d'objet, onglet événements, double-clic sur le champs vide « OnTimer ».
La Form étant sélectionnée, dans l'inspecteur d'objet, onglet événements, double-clic sur le champs vide « OnCreate ».

Enregistrer sous :
Unit1 --> Afficheur
Project1 --> Horloge

Voici maintenant à quoi doit ressembler notre unité :

unit Afficheur;
 
 
{$mode objfpc}{$H+}
 
 
 

interface
 
uses
  Classes, SysUtils, LResources,
  Forms, Controls, Graphics, 
  Dialogs, StdCtrls, ExtCtrls;
 
type 
 
 TForm1 = class(TForm)
 
  LbHeure: TLabel;
  LbMinute: TLabel;
  LbSeconde: TLabel;
 
  Timer: TTimer;
 
  procedure FormCreate(Sender: TObject);
  procedure TimerTimer(Sender: TObject);
 
  private  {private declarations}
 
  public {public declarations}
 
 end;
 
var TForm1:TForm1;

implementation { TForm1 }
 
procedure TForm1.TimerTimer(Sender: TObject);
begin end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin end;
 
 

initialization
 
{$I Afficheur.lrs}
 
end.

Il ne reste plus que très peu de choses à écrire :

• Définir les variables dont nous aurons besoin au début de la section implémentation :

var
  heure,minute,seconde : byte;

• Une fonction pour formater les affichages :

function Intto2Digits(X: byte): string;
var S: string;
begin
   S := '0'+InttoStr(X);
   result := copy(S,length(S)-1,2)
end;

• La procedure OnCreate de TForm1 entre les begin et end; de la déclaration :

procedure TForm1.FormCreate(Sender: TObject);
begin
     LbSeconde.caption := Intto2Digits(seconde);
     LbMinute.caption := Intto2Digits(minute)+':';
     LbHeure.caption := Intto2Digits(Heure)+':';
end;

• La procédure OnTimer :

procedure TForm1.TimerTimer(Sender: TObject);
begin
   inc(seconde,1);
   if seconde = 60 then
      begin
      seconde := 0;
      inc (minute,1);
      if minute = 60 then
        begin
        minute := 0;
        inc(heure,1);
        if heure = 24 then
          heure := 0;
        LbHeure.caption := Intto2Digits(Heure)+':';
        end;
      LbMinute.caption := Intto2Digits(minute)+':';
      end;
   LbSeconde.caption := Intto2Digits(seconde);
end;

• Et, si vous ne voulez pas vous lever la nuit pour faire démarrer votre horloge, dans la partie initialisation :

initialization
  {$I afficheur.lrs}
  Heure := 17;
  Minute := 30;
  Seconde := 0;
end.

Vous en savez suffisamment pour commencer à développer.

A vos claviers.