Discussion :

[Francis]

Bonjour,

Je désire formater une colonne dans un Dbgrid rattaché à une Table pour soigner la présentation.
Exemple Afficher le Montant : 5200 ==> 5200,00
Et Ce sans utiliser la propriété EditFormat du Champ.
Il me semble que ce sujet ait été traité. J'ai cherché sans rèsultat.

[Cl@udius]

SAlut

Définit la propriété DisplayFormat de ton TField.

@+ Claudius

[Francis]

Merci Cl@udius,

Je connais cette solution. Mais je ne déclare pas mes Field en mode conceptuelle. D'où l'inconvénient de cette méthode. Pourquoi me diriez-vous? Quand je fais de la modification de structure de données dans une table, cette méthode s'avère inopérante. Sauf, si je n'ai pas su l'utiliser.

[TicTacToe]

Tu peux quand même définir dynamiquent tes TField dans ta table à partir des TFieldDefs, cela te permettra de formatter visuellement tes champs.

Sinon Egalement, atteindre le field de cette manière:

Code :

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

TNumericField( MaDBGrid.Fields[ x ] ).DisplayFormat

Sinon, tu peux te servir de OnDrawColumnCell mais je suis pas sur que ce soit la meilleures solution...

[Francis]

Merci Beaucoup TicTacOe.
C'est la solution que je cherchais. Elle est facile à mettre oeuvre.
Le code suivant placé dans l'évènement on DrawColumnCell règle le probléme :

TNumericField( MaDBGrid.Fields[ x ] ).DisplayFormat

[TicTacToe]

Tant mieux

mais ce n'est pas à placer dans OnDrawColumnCell

car cet évt. est appelée à chaque fois que la cellule a besoin d'être dessinée, or là c'est une définition de formattage une fois pour toute.
(à moins que je me trompe dans ce cas précis que je n'ai jamais essayé).

et à moins que tu ne changes de formattage en changeant de ligne, cette définition est à mettre quelquepart ou elle n'est appelée qu'une seule fois.

en gros

Code :

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

1
2
3
4
5
  for i := 0 to MaDBGrid.Fields.Count - 1 do
    if MaDBGrid.Fields[ i ] is TNumericField then
      begin
      TNumericField( MaDBGrid.Fields[ i ] ).DisplayFormat := [format dépendant de la colonne]
      end;

à appeler une seule fois.