Discussion :

[tarmo57]

salut tous j'ai encore besoin de votre aide sur un calcul
j'ai toujour une érreur du type
Types incompatibles : 'TLabel' et 'Extended'
Aucune version surchargée de 'StrToCurr' ne peut être appelée avec ces arguments
voila mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TSupPaiement.BitBtn1Click(Sender: TObject);
var
rep : integer;
som : Currency ;   // = 250
rest:Currency;     //  = 80,00
pai:Currency;      //  = 1348,00
begin
 
pai:=StrToCurr(Paiement.Caption);
rest:=StrToCurr(Reste.Caption);
som:=StrToCurr(Sommes.Caption);
totalsup:=pai - som;
totalsup.caption:=StrToCurr(totalsup);

j'ai mis totalsup : Currency;

merci de votre aide

[Andnotor]

Code :

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

totalsup.caption:=CurrToStr(totalsup);

[SergioMaster]

il y a comme un lézard

Code :

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

1
2
3
 
totalsup:=pai - som;
totalsup.caption:=StrToCurr(totalsup);

totalsup ne peut certainement pas être à la fois une variable Currency et un TLabel . A la limite il faut soit déclaré une variable résultat (i.e. Tot)

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
 
procedure TSupPaiement.BitBtn1Click(Sender: TObject);
var
rep : integer;
som : Currency ;   // = 250
rest:Currency;     //  = 80,00
pai:Currency;      //  = 1348,00
tot : Currency;
begin
 
pai:=StrToCurr(Paiement.Caption);
rest:=StrToCurr(Reste.Caption);
som:=StrToCurr(Sommes.Caption);
tot:=pai - som;
totalsup.caption:=CurrToStr(tot);

ou simplement faire le calcul dans l'expression de conversion

Code :

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

1
2
 
totalsup.caption:=CurrToStr(pai-som);

[Just-Soft]

Salut;

faut travailler avec StrToFloat.

Bon codage.

[tarmo57]

formidable le code marche super merci tous