Bonjour,

Le projet avance à petits pas ...

Afin de rendre mon code plus lisible, j'ai voulu implémenter une unit de fonctions dont voici le contenu :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
unit boite_fonction;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils,LResources, Math;
implementation
 
function fonction_cherche_age(annee_nais,mois_nais,jour_nais:Word):Word;
Var annee,mois,jour,age:Word;
Begin
     DecodeDate(Date(), annee, mois, jour);
     if mois<mois_nais
     then age:=annee-annee_nais-1
     else
     if mois>mois_nais
     then age:=annee-annee_nais
     else
     if jour<jour_nais
     then age:=annee-annee_nais-1
     else age:=annee-annee_nais;
     Result:=age;
End;
end.

Ensuite dans la fiche devant utiliser ces fonctions :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
unit benef;
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  sqldb, StdCtrls, Buttons, ComCtrls, ExtCtrls, DBGrids, db, DbCtrls, ExtDlgs;
 
type
  { Tf_benef }
  Tf_benef = class(TForm)
    bnf_codepost1: TEdit;
    bt_afficher: TBitBtn;
    bt_valider: TBitBtn;
    bt_modifier: TBitBtn;
    ...
    ...
    ...
    procedure nom_rechercheKeyPress(Sender: TObject; var Key: char);
    procedure num_carte_rechercheChange(Sender: TObject);
    procedure num_carte_rechercheKeyPress(Sender: TObject; var Key: char);
    procedure sql_benef_recAfterPost(DataSet: TDataSet);
 
  private
    { private declarations }
  public
    { public declarations }
  end;
 
   Procedure  navig_record (nom_table,operation : string);
 
var
  f_benef: Tf_benef;
  v_modifie:Boolean;
implementation
 
USES
    gest_spf, boite_fonction ;
 
{ Tf_benef }
 
////////////////////////////////////////////////////////////
////////////     G E N E R A L   à   L A    F O R M
////////////////////////////////////////////////////////////
procedure Tf_benef.FormHide(Sender: TObject);
Dans le USES j'ai bien boite_fonction mais dans le programme impossible d'utiliser la fonction cherche_age

Alors j'ai du oublier un truc ça c'est sur mais quoi ?

Bon WE à vous .

Eric