Function et procedure
Résolu
lotficrew
Messages postés
24
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
13 juin 2011
-
1 mai 2006 à 10:08
lotficrew Messages postés 24 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 13 juin 2011 - 1 mai 2006 à 15:13
lotficrew Messages postés 24 Date d'inscription lundi 16 janvier 2006 Statut Membre Dernière intervention 13 juin 2011 - 1 mai 2006 à 15:13
3 réponses
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
1 mai 2006 à 13:29
1 mai 2006 à 13:29
Salut,
Voici deux exemples qui devrait te rappeler quelques souvenirs
Type
TForm1 = Class(TForm)
Procedure Button1Click(Sender: TObject);
Private
{ Déclarations privées }
Public
{ Déclarations publiques }
Procedure MaProcedure; // Exemple 1
End;
Var
Form1 : TForm1;
Procedure MonAutreProcedure; // Exemple 2
Implementation
{$R *.dfm}
Procedure TForm1.Button1Click(Sender: TObject);
Begin
MaProcedure; // appel de MaProcedure
MonAutreProcedure; // appel de MonAutreProcedure
End;
// Implementation de MaProcedure
Procedure TForm1.MaProcedure;
Begin
// ici ton code
End;
// Implementation de MonAutreProcedure
Procedure MonAutreProcedure;
Begin
// ici ton code
End;
<hr> n'oubliez pas de cliquer sur Réponse Acceptée
si elle vous convient
<hr>
@+
Cirec
Voici deux exemples qui devrait te rappeler quelques souvenirs
Type
TForm1 = Class(TForm)
Procedure Button1Click(Sender: TObject);
Private
{ Déclarations privées }
Public
{ Déclarations publiques }
Procedure MaProcedure; // Exemple 1
End;
Var
Form1 : TForm1;
Procedure MonAutreProcedure; // Exemple 2
Implementation
{$R *.dfm}
Procedure TForm1.Button1Click(Sender: TObject);
Begin
MaProcedure; // appel de MaProcedure
MonAutreProcedure; // appel de MonAutreProcedure
End;
// Implementation de MaProcedure
Procedure TForm1.MaProcedure;
Begin
// ici ton code
End;
// Implementation de MonAutreProcedure
Procedure MonAutreProcedure;
Begin
// ici ton code
End;
<hr> n'oubliez pas de cliquer sur Réponse Acceptée
si elle vous convient
<hr>
@+
Cirec
elguevel
Messages postés
718
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
22 novembre 2016
3
1 mai 2006 à 10:11
1 mai 2006 à 10:11
Tu declare tes prototypes dans la partie Interface (l'autre etant Implementation).
Et ensuite dans ta classe tu met le mot clé Private ou Public.
Et ensuite dans ta classe tu met le mot clé Private ou Public.
lotficrew
Messages postés
24
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
13 juin 2011
1 mai 2006 à 15:13
1 mai 2006 à 15:13
Merci cirec c'est tres gentil
<gras> tilof_man (corporation)
<gras> tilof_man (corporation)
