Function ne marche pasRésolu

Question

salut 
j'ai un probléme a l'appel de cette function elle ne marche pas :(
var
  Form1: TForm1;
   k,i,M,X,Puiss:integer;
implementation

{$R *.dfm}
Function Puissance(Sender: TObject;i:integer):integer;
var S,P,X:integer;
A:Tedit;
begin
for X:=1 to i do
begin
P:=StrtoInt(A.text[k]);
S:=S*P;
end;
Puissance:=S;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
X:=X*puissance(5);
end;

end.
merci d'avance pour vos aides

WhiteHippo · Accepted Answer

En effet Florenth, c'est ça de poster directement  en faisant ça au feeling. Il manque en effet une initialisation.

function puissance(Valeur , Exposant: integer) : integer;
var
   i : integer;
begin
  result := 1 ;
  for i:=1 to Exposant do result:=result*Valeur ;
end;

P.S. Promis j'essayerais  de ne pas recommencer.

Cordialement. 
<hr />"L'imagination est plus importante que le savoir." Albert Einstein

florenth · Answer

Salut,

@WhiteHippo:
"for i:=0 to Exposant do result:=result*Valeur"

> comme Result a par défaut la valeur 0, tu ne vas rien changer au résultat !!!

@Hardouz: 
On dirait que tu as bien du mal à t'en sortir avec les fonctions et les objets. Il y a tellement plein d'erreurs dans la tienne que je ne devine même pas ce que tu as essayé de faire.
Enfin... on est ici pour apprendre, je ne saurais que te conseiller ce fabuleux lien :
http://fbeaulieu.developpez.com/guide/4-proc-et-fonctions.html

++
Flo

Caribensila · Answer

Ouiiiiiiiiiiiiiiiiiiii !, Florenth!

Perso, j'ai tout appris (le peu) que je sais avec ce tuto de M. Beaulieu...
Dommage qu'il ne soit pas terminé, d'ailleurs...
Mais je tenais à lui rendre hommage aussi.
C'est super pour les débutants!

PS: Moi, je l'ai imprimé pour pouvoir le lire partout. Francky comprendra!  lol

Francky23012301 · Answer

@Cari : on pourrait peut etre l'imprimé sur du papier toilette ce tuto ? mdrrrrrrrrrrrr

Bon je file travailler

@+

Function ne marche pas

4 réponses

Votre réponse

Discussions similaires