Discussion :

[Tchenouleur]

Bonjour
Je fait un programme qui extrait des nombres depuis une base Access pour les rappatriées dans des DBgrid. Mon problème est que quand ces nombres arrive dans le DBGrid il ne sont plus sous forme numéraire.
Ex : quand les nombres arrivent -> 12000
Ce que je souhaite-> 12 000

Pourtant dans ma base Access les nombres sont bien sous forme numéraire.
Merci

[Bloon]

Il faut mettre un DisplayFormat à ',0.00'. Tu peux le faire dans la liste des champs du dataset ou bien par programme, par exemple :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Query1AfterOpen(DataSet: TDataSet);
var
  f : TField;
begin
  f := DataSet.FindField('LA ZONE');
  if (f is TNumericField) then
    (f as TNumericField).Displayformat := ',0.00';
end;

Bloon

[Tchenouleur]

Merci de m'avoir repondue si vite.
En fait je débute en Delphi et je voulais savoir si il était mieux d'utiliser la fonction que tu m'as donnée. Ou de mettre directement ça dans le Dataset. Parce que si je fais une fonction il faut que je la rappelle dans le DataSet? A l'endroit ou tu a mis 'La Zone' il faut que je mette le nom de mon DBGrid?
Merci

[Bloon]

Personellement, je préfère faire le maximum de choses par le code plutôt que par les propriétés des composants, mais je ne pense pas qu'une méthode soit meilleure que l'autre.

La fonction donnée sera appelée automatiquement si tu l'associes à l'événement AfterOpen du dataset.

Il faut que tu remplaces LA ZONE par le nom de la zone dans la table. Tu peux aussi faire quelque chose de plus générique :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Query1AfterOpen(DataSet: TDataSet); 
var
  i : integer;
begin
  // Met un format d'affichage à toutes les zones numériques
  for i := 0 to DataSet.FieldCount - 1 do
  begin
    if (DataSet.Fields[i] is TNumericField) then
      (DataSet.Fields[i] as TNumericField).DisplayFormat := ',0.00';
  end;
end;

Pour être plus précis, tu peux remplacer TNumericField par TFloatField. Dans ce cas, seules les zones numériques à virgule flottante auront le format.

Bloon

[Bloon]

Précision : le format ,0.00 c'est pour les nombres à virgule, s'il s'agit d'entiers, il faut mettre ,0.

Bloon