Discussion :

[kimlee]

Bonjour,

J'ai un problème stupide que je n'arrive pas à résoudre en Delphi 7 Enterprise sous XP Pro SP2.
J'écris le code suivant :

Code :

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

1
2
3
4
5
 
var
  inter : real; // résultat intermédiaire
........
  inter := Power(2,8);

Et j'obtiens inter = 0 ...

J'ai bien mis la clause uses math (sinon, de toutes façons, ca ne compile pas).
J'ai essayé de mettre inter en extended, de mettre sous la forme Power (2.0,8.0), etc...
Ce doit être une bétise, mais je "sèche". Si quelqu'un a une idée, elle est la bienvenue.

D'avance merci.

Kim

[Lung]

Bizarre !
Moi, j'obtiens bien 256 avec ça :

Code :

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

ShowMessage(FloatToStr(Power(2, 8)));

Tu es sûr que la variable n'est pas modifiée ?

[dd_garion]

Je pense que le nom de ta variable y est pour quelque chose.
Ci-dessous, j'ai un bon résultat pour i et j mais pas pour inter.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button1Click(Sender: TObject);
var
   i : double;
   j : real;
   inter : real;
begin
 i := power(2,8);
 j := power(2,8);
 inter := Power(2,8);
edit1.Text := floatToStr(i);
edit2.Text := floatToStr(j);
end;

Je re-test et cette fois c'est bon