Commetn déclarer des variables utilisables dans plusieurs unit ? [Résolu]

Messages postés
9
Date d'inscription
mardi 22 avril 2008
Dernière intervention
28 avril 2008
- - Dernière réponse : f0xi
Messages postés
4304
Date d'inscription
samedi 16 octobre 2004
Dernière intervention
9 mars 2018
- 28 avril 2008 à 19:32
Bonjour,
et oui encore moi !! ^^
Donc voilà, j'ai besoin de certaine variable dans plusieurs unit. Je pensais qu'il fallait les déclaré dans le var avant implementation ! Mais ça marche pas !
Je ne comprend pas du tout !!!
Please help me !
Merci beaucoup
A+++
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
1105
Date d'inscription
dimanche 1 août 2004
Dernière intervention
17 août 2008
3
Merci
Ben oui, c'est bien comme ça que ça marche.
Mais la faut ajouter l'unité qui contient la variable dans la clause uses de l'unité qui veut l'utiliser, ton erreur vient surement de là.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de florenth
Messages postés
4304
Date d'inscription
samedi 16 octobre 2004
Dernière intervention
9 mars 2018
0
Merci
Unit1
  +--> interface +uses Unit2 (interface visible dans unit1)
  +--> interface +uses Unit3 (interface visible dans unit1)

Unit2
  +--> implementation uses Unit1,Unit3 (interface visible dans Unit2)

Unit3
  +--> implementation uses Unit1,Unit2 (interface visible dans Unit3)

exemple :

Unit Unit1;

Interface {Zone publique}



Uses Unit2, Unit3;






var
  U1 : integer;



Implementation {Zone privée}

procedure TForm1.ShowUU;
begin

  LabelU2.Caption := IntToStr(Unit2.U2);

  LabelU3.Caption := IntToStr(Unit3.U3);

end;

end.
_____________________________________________


Unit Unit2;


Interface {Zone publique}



var

  U2 : integer;





Implementation {Zone privée}






Uses Unit1, Unit3;






procedure TForm2.ShowUU;

begin

  LabelU1.Caption := IntToStr(Unit1.U1);

  LabelU3.Caption := IntToStr(Unit3.U3);

end;


end.




_____________________________________________


Unit Unit3;


Interface {Zone publique}



var

  U3 : integer;





Implementation {Zone privée}







Uses Unit1, Unit2;






procedure TForm3.ShowUU;

begin

  LabelU1.Caption := IntToStr(Unit1.U1);

  LabelU2.Caption := IntToStr(Unit2.U2);

end;


end.



                         

<hr size="2" width="100%" />
Commenter la réponse de f0xi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.