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