procédure

Question

bonjour,


je d&#233;bute avec delphi et y il a un truc pas tr&#232;s clair pour moi...


j'aimerai utiliser une proc&#233;dure plusieur fois depuis 2 fiches diff&#233;rentes, mais je ne sais pas o&#249; d&#233;clarer cette proc&#233;dure et o&#249; la placer.
merci pour vos r&#233;ponses.

jmp77 · Answer

Hello,





Alors imaginons tu es deux unit&#233;s appelez respectivement Unit1 et Unit2 avec dans chaque unit une form Form1 et Form2.





Dans Unit2(form2) tu declares dans public ta procedure :


 public { D&#233;clarations publiques }


 procedure MaProcedureAMoi;

ensuite sous implementation tu declares ton code comme ceci :


procedure TForm2.MaProcedureAMoi;


begin


Showmessage('MaProcedureAMoi');


end;




Puis dans Unit1 pour pouvoir lancer la procedure tu fais :


Dans les uses tu ajoutes Unit2


Uses Unit2;


Puis Unit1 quand tu as besoin de ta procedure de l'unit2 tu fais :


Procedure TForm1.OnCreate(Sender : TObject);


begin


Form2.MaProcedureAMoi;


end;





Voila j espere que j'ai &#233;t&#233; suffisament clair sinon demande moi ce que tu ne comprends pas.





Bonne prog,

JMP77.



N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cs_Delphiprog · Answer

Pour &#233;viter les r&#233;f&#233;rencements crois&#233;s qui finissent toujours par amener des probl&#232;mes, le mieux est de mettre les proc&#233;dures, variables et constantes communes dans une unit&#233; sp&#233;cialis&#233;e (g&#233;n&#233;ralement appel&#233;e Common.pas).
Pour cela, faire Fichier/Nouveau/Unit&#233; et y placer le code.
Maintenant, imaginons plusieurs autres fiches ayant besoin d'appeler cette m&#234;me proc&#233;dure. Pourquoi seraient-elles oblig&#233;es de r&#233;f&#233;rencer l'unit&#233; contenant TForm2, au risque de modifier des propri&#233;t&#233;s au passage, alors que ce n'est absolument pas n&#233;cessaire ?

Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

mathieu57100 · Answer

si je cr&#233;e une nouvelle untit&#233;, voici le code g&#233;n&#233;r&#233; par delphi &#224; l'interieur de cette derni&#232;re:

         unit uCommun;


         interface


         implementation


   
         end.

or, si je cr&#233;e une proc&#233;dure pour tester avec un showmessage, j'ai un message d'erreur qui me dit "directive inconnue: 'showmessafe'
que puis-je faire pour corriger cela?

jmp77 · Answer

Hello,



En dessous de interface tu rajoutes ceci :

Uses Dialogs;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

mathieu57100 · Answer

toujours pareil...

unit uCommun;
interface
Uses Dialogs;
implementation
procedure test ;
showmessage('test');
end;
end.

jmp77 · Answer

Petit oubli je pense ca marchera mieux comme cela :



unit uCommun;
interface
Uses Dialogs;
implementation
procedure test ;

begin
showmessage('test');
end;
end.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cs_Delphiprog · Answer

Non, JMP77, la proc&#233;dure test n'&#233;tant pas d&#233;clar&#233;e dans la partie Interface, elle n'est pas visible de l'ext&#233;rieur par cons&#233;quent, il faut ajouter la d&#233;claration dans la partie interface :
unit uCommun;

interface

Uses Dialogs;

procedure Test;

implementation

procedure test ;
begin
   showmessage('test');
end;
end.

Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

jmp77 · Answer

Oui tout a fait daccord pour qu'elle apparaisse &#224; l'exterieur. Mais ce
n'est pas le manque de d&#233;claration qui provoquait son message d'erreur.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

Procédure

8 réponses

Votre réponse

Discussions similaires