Discussion :

[BuzzLeclaire]

Bonsoir, bonjour à tous.

J'ai un problème de format dans un calcul de cellule de StrinGrid
voici le code qui rempli l'information issu d'une requette

Code :

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

1
2
 
GridSemaineTemps.Cells[x,n] := FormatFloat('#0.00',(Fields.Fields[2].AsInteger / 12));

La pas de souci cela m'affiche correctement les nombres décimale
Enfin j'ai 22,50 au lieu de 22.50 (. et ,) je sais pas si cela joue.
Bref

Maintenant j'essai de faire la somme de chaque colonne comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
// Calul des totaux
  For x:= 1 to (GridSemaineTemps.ColCount-1) do
  Begin
    TotalCategorie := 0;
    For n:= 1 to (GridSemaineTemps.RowCount-2) do // pas la dernière ligne
    Begin
      if (GridSemaineTemps.Cells[x,n] <> '') then
      TotalCategorie := TotalCategorie + StrToInt(GridSemaineTemps.Cells[x,n]);
    end;
    GridSemaineTemps.Cells[x,(GridSemaineTemps.RowCount-1)] := FormatFloat('#0.00',TotalCategorie);
  end;

La variable TotalCatégorie est en Extended.

à chaque execution de ce code je me prends :
"........class EConvertError with message "4,00' is not a valid integer value'.......

je pense que cela viens de
TotalCategorie := TotalCategorie + StrToInt(GridSemaineTemps.Cells[x,n]);

Je comprend tout à fait le message mais je vois pas comment faire.

MErci de votre aide.

[skywaukers]

Bonjour,

Utilise StrToFloat a la place de StrToInt puisque tu veux convertir un nombre avec decimales.
bien sûr TotalCategorie ne doit pas être de type integer dans ce cas.
@++
Dany

[SergioMaster]

+1 pour ce qui est du 'StrToFloat a la place de StrToInt'

Enfin j'ai 22,50 au lieu de 22.50 (. et ,)

ça c'est tout à fait normal , puisque cela dépend de paramètres régionaux, nous tenons a notre virgule décimale

[BuzzLeclaire]

Je suis une vrai burne sur le coup... Mort de rire..

Merci. sa fonction.