SAlut les Programmeur ou programmateur je sais pas comment on dit

je sens que vous aller me dire " WAAA le noob il sait même pas sa pfff il sert a rien laisse tomber la prog c mort t'est trop con"
Mais bon j'ose quand même

Comment lancer une procédure a partir d'une autre procédure du même programme ??


Merci d'avance les "bons" (qui aides les faibles, les autre ils servent a rien il font sa que pour eux c'est nul)

ben euh, si ta procedure est une procedure declaree par un composant, tu as juste a faire par exemple dans la procedure du clic d un bouton

Form1.OnCreate;

ce qui appelera la procedure OnCreate de la Form1.

apres, tu peux toi meme declarer tes propres procedures, et tu les appelles simplement par leur nom, sans rien d autre mais avec le ";"juste apres ;)

jespere que cest clair

c'est pas pour critiquer mais j'ai pas très bien compris..
relisons......

ah j'ai compris!! mais que le début

je vais mieux t'expliquer moi aussi :

je veux appeler cette procedure qui est IdSMTPWork lors d'une condition
if (IdSMTP1.Connected) then
Form4.IdSMTP1Work();

voila mon code mais sa ne marche pas :
raison : 'Pas asser de paramètre originaux'

je suis sur que c'est les '()' qui foire mais il faut mettre quoi dedans ??

Quelle est la procedure IdSMTPWork ? Qu'attend-t-elle comme paramètres ? (ils sont définis lors de la déclaration de la procédure, juste avant l'implémentation)

Si la procedure n'attend aucun param, il est inutile de mettre les ( ), par contre, si elle en attend, il faut mettre les paramètres dans les parenthèses séparés par des virgules...

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

salut nico!
en faite tu sait dans delphi 7 quand tu met un point après un objet ou autres il ya toute les possibilité de 'suite' de la procédure qui s'affiche donc je séléctionne celle qu'il me faut
et les paranthèses aparaissent toutes seule.
j'ai essayer de les supprimmés mais toujours le même prob
aprés j'ai essayer
Form4.IdSMTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer)
Mais sans résultat a part l'erreur

Une procedure se déclare comme ceci dans type:

procedure MaProcedure(param1: string ; param2: Integer);

Ensuite, la procedure elle-même s'écrit comme ceci dans implementation:

procedure TForm1.MaProcedure(param1: string ; param2: Integer); begin Label1.Caption := param1[param2]; end;

La procedure peut être appelée de cette façon :

MaProcedure('abcdef', 3);

Quand cette procedure aura été appelée, le Label1 contiendra 'c'.

J'espère avoir été clair...

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

Il faut que tu remplace

Sender, AWorkMode, AWorkCount

par les paramètres que tu veux !

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

Mais cette procédure est déclarée non ?? donc pas besoin de tout se bordel non ??