Discussion :

[heart100]

Comme Vous voyez ; je veux calculer la somme de dbgrid dans un edit , le problème c'est que
la somme n'a pas le format currency (00.00), , avec un edit mask c'est la meme chose donc , aidez moi svp

[FOCUS77]

Bonjour,

Avez vous essayé ça?

Code :

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

1
2
3
4
procedure TForm1.SumClick(Sender: TObject);
begin
  Edit1.Text:=FloatTostrF(Somme,ffFixed,12,2);
end;

[heart100]

ohhhhhhh ...ça marche oui....... je vous remercie beaucoup 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
var T:real;
begin
T:=0;
DBGrid2.datasource.DataSet.First;
while not DBGrid2.datasource.DataSet.Eof do
  try
  T := T +  DBGrid2.datasource.DataSet.FieldByName( 'qte_entree' ).AsFloat ;
    finally DBGrid2.datasource.DataSet.Next;
  end;
   Edit2.Text:=FloatTostrF(T,ffFixed,12,2);
 
end;