Discussion :

[Darkyl]

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 :

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

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 :

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

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...

[Jipété]

'lut,

demarrage.remplir_liste_societe(form1.liste_entreprise); peut-être...

[Darkyl]

Déjà essayé en vain, mais merci quand même

[Jipété]

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

[tourlourou]

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
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.

[FOCUS77]

Bonsoir à tous.

J'ai voulu vous proposer cette méthode:


Unit Demarrage;

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
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 :

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
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

[Darkyl]

La solution de TOURLOUROU marche nickel, merci à tous!