[Lazarus] Unit de fonction

Unit de fonction

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:

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:

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

Je pense que tu devrais déclarer ta fonction par la ligne:

Code:

function fonction_cherche_age(annee_nais,mois_nais,jour_nais:Word):Word;

Avant le mot clef implementation...

Evidemment il est des dimanches matin ou l'on ferait mieux de rester faire la Grasse Matinée et non se lancer dans Lazarus avec autant peu de neurones !!!

Merci de ta réponse.

Je vais me remettre les yeux en face des trous.

Eric