Appel de procedure entre fenetre
cs_bdv
Messages postés
4
Date d'inscription
mercredi 23 janvier 2002
Statut
Membre
Dernière intervention
26 mars 2002
-
26 mars 2002 à 14:52
PhGORMAND Messages postés 54 Date d'inscription jeudi 3 janvier 2002 Statut Membre Dernière intervention 20 juillet 2006 - 26 mars 2002 à 15:38
PhGORMAND Messages postés 54 Date d'inscription jeudi 3 janvier 2002 Statut Membre Dernière intervention 20 juillet 2006 - 26 mars 2002 à 15:38
1 réponse
PhGORMAND
Messages postés
54
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
20 juillet 2006
26 mars 2002 à 15:38
26 mars 2002 à 15:38
Il faut que tu fasse une référence croisée d'unité.
Exemple : Pour apeller la fonction B qui est dans
lunité Unit2, depuis l'unité Unit1.
Unit2
Interface
Function B : integer;
Implementation
Function B : Integer;
Begin
Calcul;
.......
Result:=Calcul;
End;
......
Unit1
Interface
Uses
Unit2;
Procedure A;
Implementation
Procedure A;
Var
D : Integer;
Begin
D := B;// Appel de la fonction B se trouvant dans Unit2
End;
Vas voir l'aide de DELPHI sur "Reference d'unite circulaire" et "Reference d'unites multiples et indirectes"
http://philippe.gormand.free.fr/
A +
Exemple : Pour apeller la fonction B qui est dans
lunité Unit2, depuis l'unité Unit1.
Unit2
Interface
Function B : integer;
Implementation
Function B : Integer;
Begin
Calcul;
.......
Result:=Calcul;
End;
......
Unit1
Interface
Uses
Unit2;
Procedure A;
Implementation
Procedure A;
Var
D : Integer;
Begin
D := B;// Appel de la fonction B se trouvant dans Unit2
End;
Vas voir l'aide de DELPHI sur "Reference d'unite circulaire" et "Reference d'unites multiples et indirectes"
http://philippe.gormand.free.fr/
A +
