Discussion :

[tarmo57]

rebonjour tous ,encore un petit problème
j'ai besoin de faire un calcul sur deux Tedit (Une Addition) et je place la réponce dans un label
la pour moi c ok .
Mais le probléme Si dans un Tedit je place un nombre decimal
j'ai le message
le nombre donnée n'est pas une valeur entière corecte

Une petite Idée ??

merci d'avance

[ShaiLeTroll]

remplace StrToInt par StrToFloat, et tes variables Integer par des Double

[Cl@udius]

Salut

le nombre donnée n'est pas une valeur entière correcte

Visiblement ton code ne s'attend pas à recevoir une valeur décimale.
Montre-nous ton code, on pourra certainement voir ce qui cloche.

@+ Claudius

[tarmo57]

donc un parti du code car je fais beaucoup de calcul dans un form

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
31
32
33
34
35
36
37
 
var
  PrixResultat:integer;
procedure TCalcul.BitBtn1Click(Sender: TObject);
 
var
 
P1:integer;
P2:integer;
P3:integer;
P4:integer;
P5:integer;
P6:integer;
P7:integer;
 
begin
 
P1:=StrToInt(Prix.Text); //Prix
P2:=StrToInt(Prix_nombre.Text);//Prix_nombre
P3:=StrToInt(Prix_gratuit.Text);//Prix_gratuit
P4:=StrToInt(Prix_single.Text);//Prix_single
P5:=StrToInt(Prix_n_single.Text);//Prix_n_single
P6:=StrToInt(Prix_reduction.Text);//Prix_reduction
P7:=StrToInt(Prix_supplement.Text);//Prix_supplement
PrixResultat:=P1*(P2-P3)+(P4*P5)-P6+P7;//le calcul
Prix_total.caption:=IntToStr(PrixResultat); //le resultat
 
// ensuite j'enregistre dans ma base de donnée
Form1.Table1.FieldByName('Prix').Value := Prix.Text;
Form1.Table1.FieldByName('Prix_nombre').Value := Prix_nombre.Text;
Form1.Table1.FieldByName('Prix_gratuit').Value := Prix_gratuit.Text;
Form1.Table1.FieldByName('Prix_single').Value := Prix_single.Text;
Form1.Table1.FieldByName('Prix_n_single').Value := Prix_n_single.Text;
Form1.Table1.FieldByName('Prix_reduction').Value := Prix_reduction.Text;
Form1.Table1.FieldByName('Prix_supplement').Value := Prix_supplement.Text;
Form1.Table1.FieldByName('Prix_total').Value := Prix_total.caption;
end;

[Cl@udius]

Salut

Puisque tu manipules des prix, définis tes variables PrixResultat et P1 à P7 de type Currency.
Ensuite remplace tes appels à StrToInt par des StrToCurr, ainsi tu pourras saisir des prix avec des centimes.

C'est en gros ce que t'avais dit précédemment ShaiLeTroll.

@+ Claudius

[tarmo57]

ok super merci sa marche bien