Discussion :

[weberick]

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

[Clandestino]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Avant le mot clef implementation...

[weberick]

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