Discussion :

[looping]

bonjour,

j'ai besoin qu'on me rafraichisse la mémoire sur les procedures!!

lorsque il ni a aucun parametre a passer et qui'il ni a aucun parametre à recevoir (c'est juste du calcul interne) comment :

- on déclare la procedure dans l'interface
- on ecrit la première ligne de la procedure elle meme
- on appelle la procedure


merci

[Clorish]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Unit Unit1;
 
interface
 
Procedure MaProcSansParam;
Procedure MaProcAvecParam(AParam : String);
Function MaFuncSansParam : Integer;
Function MaFuncAvecPAram(AParam : String) : Integer;
 
implementation
Procedure MaProcSansParam;
Begin
 
End;
 
Procedure MaProcAvecParam(AParam : String);
Begin
 
End;
 
Function MaFuncSansParam : Integer;
Begin
 
End;
 
Function MaFuncAvecPAram(AParam : String) : Integer;
Begin
 
End;

Si tu parles du mot clef foward il est inutile pour toutes declaration de procedures/fonction publiques (ie declaration dans interface) car la declaration et de fait forward car aucune implemetnation n'est autorisée dans la partie interface

Apres il est possible de ne pas remettre la partie parametres dans la partie implementation mais la mettre n'est pas faux et permet d'eviter des ennuis

[DragonHeart]

Bonjour,

L'appelle de la procédure est simple
je reprend les exemples donnée par clorish

tu veux appeller la procédure" MaProcSansParam"

il te suffit dans le code a l'endroit ou tu veux l'appeller de simplement mettre le nom de la procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MaProcSansParam;

et s'il s'agit d'une procédure avec paramétre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MaProcAvecParam(Edit1.Text);

[sofiane1111]

c'est ça Oui.

[sofiane1111]

Oui c'est ça.

Exemple pour une procédure "toto".

1-on crée la procédure "toto":

PROCEDURE TForm1.toto(val1:string,...etc) ;
var
a:string;
..etc
begin
traitement....
end;

2-on déclare la procédure dans Type:

Procedure toto(val1:string,...etc);

3-on fait appelle à la procédure à partie de l'interface (bouton ou autre) :

Ex : if instr then toto('valeur',...etc)

Ou carrément : toto('valeur',...etc)