Rendre une procédure accessible au programme utilisant l'unité

Version imprimable

Bonjour,

J'ai deux units qui s'appellent entre elles, une dans le uses et une dans l'implémentation, le tout pour éviter de créer une référence circulaire.
Mon problème est que j'ai crée une procédure dans la première et que je souhaite l'appeler dans la seconde et il me dit référence inconnue. Pourtant quand j'appelle des objets, ex form1.listbox depuis la unit 2, là il n'y as pas de problème.

Voici un bout de code:

unit demarrage
Code:

1 2 3 4 5 6 7 8 9 10 11 12 uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,enregistrement_entreprise; ... procedure remplir_liste_societe(list:Tlistbox); var Donnee:string; begin blablabla end;
et la unit enregistrement_entreprise:
unit demarrage
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 implementation uses demarrage; ... procedure Tenregistrement_entreprise_form.enregistrer_entreprise_boutonClick(Sender: TObject); var G:textfile; begin blablabla remplir_liste_societe(form1.liste_entreprise); // <- Il me dit que remplir_liste_societe est inconnu end;
Si quelqu'un a une idée? Cela doit être tout con, mais merci de m'aiguiller...

10/05/2015, 22h27
Jipété

'lut,

demarrage.remplir_liste_societe(form1.liste_entreprise); peut-être...
10/05/2015, 22h31
Darkyl

Déjà essayé en vain, mais merci quand même :lol:
10/05/2015, 23h24
Jipété

Tiens, étudie ce lien, il parle de ça.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
unit demarrage;
 
interface
 
procedure remplir_liste_societe(list:Tlistbox); // section interface, donc sera connue des unités la référençant
 
 
implementation
 
procedure remplir_liste_societe(list:Tlistbox);
var Donnee:string;
begin
   blablabla
end;
 
end.

Bonsoir à tous.

J'ai voulu vous proposer cette méthode:

Unit Demarrage;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;
  procedure remplir_liste_societe(list:Tlistbox);     
 ...
 ...
 
Implementation
 
uses enregistrement_entreprise;
 
procedure remplir_liste_societe(list:Tlistbox);
var Donnee:string;
begin
   blablabla
end;

*******************************************************************************

Unit enregistrement_entreprise;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
interface
 
uses
  Classes, SysUtil .... Demarrage; 
   ...
   ...
 
implementation
 
...
 
procedure Tenregistrement_entreprise_form.enregistrer_entreprise_boutonClick(Sender: TObject);
var G:textfile;
begin
 
  Demarrage.remplir_liste_societe(form1.liste_entreprise); 
 
end;

merci

11/05/2015, 19h56
Darkyl

La solution de TOURLOUROU marche nickel, merci à tous! :P