Discussion :

[Archimède]

comment faire *10^x avec x de type integer ?
pour moi x représente comboxbox1.itemindex
il y a power ...(x est un extended) et il faut rajouter math dans uses.
c'est tout bête mais je me prends la tête avec ça depuis 2 heures...
merci de me dépanner

[sjrd]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TimeTenPowerX(var Value : integer; X : integer);
begin
  while X > 0 do
  begin
    Value := Value * 10;
    dec(X);
  end;
  while X < 0 do
  begin
    Value := Value div 10;
    inc(X);
  end;
end;

[Archimède]

bien vu...
c'est astucieux.
je croyais qu'il y avait plus direct.
en basic, ça se fait sans problème...
merci tu me dépannes bien

[sfpx]

si tu tiens à utiliser l'unit math

function power10(p:integer):integer;
begin
result:=trunc(intpower(10,p));
end;

[Archimède]

oui merci, j'avais compris pour power...
au fait pour ta procédure, il faut mettre x>=0 pour que ça marche.
je me suis limité qu'à la première boucle, mon itemindex est positif...
c'était simple mais il fallait y penser.

c'est sympa merci encore.

[Archimède]

excuse, tu as parfaitement raison c'est x>0. Je fatigue...