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

chacarre 9 Messages postés mardi 22 avril 2008Date d'inscription 28 avril 2008 Dernière intervention - 28 avril 2008 à 15:36 - Dernière réponse : f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention
- 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

florenth 1105 Messages postés dimanche 1 août 2004Date d'inscription 17 août 2008 Dernière intervention - 28 avril 2008 à 16:00
+3
Utile
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à.
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de florenth
f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention - 28 avril 2008 à 19:32
0
Utile
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.