Discussion :

[vanou]

Bonjour!

Je ne comprend pas l'erreur sur cette ligne

Code :

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

1
2
3
 
edtTotal.Text:=inttostr(strtoint(edtPrix.Text)*strtoint(edtDuree.Text)
*(100+strtoint(edtPrixG.Text)/100)));

La ligne d'erreur : [Erreur] Uappart.pas(203): Aucune version surchargée
de 'IntToStr' ne peut être appelée avec ces arguments

Merci bcp a vous

[revsys]

N'utilise pas / mais div pour les entiers

[vanou]

qd je met div ca ne fonctionne pas

[J-P-B]

qd je met div ca ne fonctionne pas

Quel est le message d'erreur avec div ?

Parce que le premier message signifie qu'il y a plusieurs déclarations pour IntToStr (overload) mais que aucune ne permet d'utiliser des flottants, puisque "/100" donne un flottant.
Après, tu peux faire d'abord un trunc, ou formatFloat, ou un Format ...

JP

[Clorish]

Ca ne "Fonctionne" pas ... c'est a dire ton application ?
C'ets peut etre normal si tu atends un nombre a virgule. Div effectue la division euclidienne ... donc entiere.

Si tu veux un reel, passe par FloatToStr ....

[banban54]

bonjour

ceci fonctionne correctement:

Code :

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

1
2
3
4
5
6
7
8
procedure TedtTotal.Button1Click(Sender: TObject);
var
intermediaire : integer;
begin
  intermediaire := strtoint(edtPrix.Text)*strtoint(edtDuree.Text)
        *(100+strtoint(edtPrixG.Text)div 100);
  edtTotal.Text:=inttostr(intermediaire);
end;

à plus

[vanou]

il fallait bien mettre floattostr!

Merci beaucoup pour tte vos réponse!