BONJOUR !! J ' AI UN PROBLÈME SUR UNE OPÉRATION DE CONVERTION
J 'AI UNE ERREUR D’INCOMPATIBILITÉ DE TYPE ENTRE INTEGER ET REEL
OPERATION =QTE*PB*DB/100+QTE*PP*DP/100
quand j'essaie d'affecter le resultat à un champs j'ai des erreurs type incompatible integer et extend ou integer et Real ......
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 VAR QTEL:INTEGER; // ON SAISIE LE CHAMP QUANTITÉ QTEK, PB,PP, DB,DP:REAL; begin if key = #13 then begin QTEL:=DATA.SDETAILGPLQTELIVL.VALUE; // saisir une valeur interger à QTEL PB:=DATA.SITUATIONGPLPB.VALUE; //saisir une valeur en pourcentage à PB ex 40% PP:=DATA.SITUATIONGPLPP.VALUE; //saisir une valeur en pourcentage à PB ex 60% DB:=DATA.SITUATIONGPLDENSITEB.VALUE; // affecter une valeur fixe à DB =0.510 DP:=DATA.SITUATIONGPLDENSITEP.VALUE; // affecter une valeur fixe à DB =0.573 QTEK:=((QTEL*PB)*DB)/100+(((QTEL*PP)*DP)/100); // opération de calcule ShowMessage(FloatToStr(QTEK)); // pour teste que ça marche
pouvez vous m'aider a affecter le résultat de l'opération à un champ et le résultat et un nombre sans la virgule
Code : Sélectionner tout - Visualiser dans une fenêtre à part DATA.SDETAILGPLQTELIVK.Value:=QTEK;
merci !!!!
Partager