DisplayFormat à l'affichage d'un DBgrid

Bonjour,
Comme c'est déjà signalé dans une autre discussion de ce forum, DisplayFormat n'existe pas pour un Query genre Tquery ou TIBquery,
je cherche un methode d'affichage dans un DBGrid d'une colonne numérique genre 3 chiffres après la virgule, sachant que mon Query génére une requête ajouté dans le code source (d'une manière dynamique) et qui change selon le Form affiché, j'ai utilisé la manière suivante:

Code:

---

1 2 3 4 5 6 7 8

procedure Tfrmdepenses.dbgrilleDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if Column.FieldName='MONTANT' then FormatMaskText('### ##0.000',Column.Field.DisplayText); end;

---

mais ça n'a rien changé :( Y-a-t-il une autre méthodes s'il vous plait ??
Un grand :merci: à tous d'avance

Bonjour

Si L'affichage est pour tous les zones d'edition, et non uniquement pour les TDBGrid, vous pouvez utiliser les DisplayText/GetdisplayText des champs afficher.
Attention, si vous faite une saisie, sur un champs, ce n'est pas toujour pratique d'écrire '1 565 000,25' au lieu de '1565000,25'.

L'aide Delphi7 en français (plus pratique que l'aide Delphi 2007) donne ceci.
Représente la valeur du champ telle qu'elle est affichée dans un contrôle orientédonnées.

Syntaxe Delphi :

propertyDisplayText:String;

Syntaxe C++:

__ propertyAnsiStringDisplayText ={read=GetDisplayText};

Description

DisplayText est la représentation chaîne en lecture seule de la valeur d'un champ devant être affichée dans des contrôles orientés données.Elle représente la valeur du champ quand il n'est pas en cours de modification.Si le champ est en cours de modification,utilisez la propriétéText.

Si le champ possède un gestionnaire d'événement OnGetText,DisplayText contient la valeur renvoyée par le paramètre Text du gestionnaire d'événement OnGetText quand son paramètre DisplayText a la valeur true.Sinon,DisplayText contient la valeur de la propriétéAsString.

Bonsoir Tardiff Jean-François;
Votre réponse des vraiment détaillée, je l'ai lu plusieurs fois :aie: mais j'ai pas compris ce que je dois faire dans mon cas : afficher une valeur numérique dans un format semblable à '### ##0.000' dans un dbgrid des données provenant d'un query genre:

Code:

---

1 2 3 4

dm.qautre.sql.add('select * from depenses'); dbgrille.dataset:=dm.qautre; dm.qautre.active:=true;

---

dans cette requete je possède une colonne MONTANT que je désire l'afficher avec ses décimales mais elle s'affiche ainsi:

Montant
--------
12.5
102.32
1502
19.7

Merci

Vous avez un champs contenant le montant, pour le trouvez vous devez utiliser quelque chose de ce genre.

Code:

---

1 2 3 4 5

function FieldMontant: Tfield; begin dm.qautre.fieldByName('Montant'); end;

---

si vous affecter un evenement OnGetText à ce champs vous pouvez modifier a volonté la valeur afficher

Code:

---

1 2	FieldMontant.OnGetText := MontantGetText; // Affectation de l'événement

---

et

Code:

---

1 2 3 4 5 6

procedure MontantGetText(Sender: TField; var Text: String;var DisplayText: Boolean); begin Text := Format ('###,###,###.##', Sender.AsFloat); // Creation du text visualiser DisplayText := True; // indique d'utiliser le text que j'ai fabriquer et non le text par défaut end;

---

Attention, je n'ais pas tester le code. Je suis chez mois et je n'ai pas delphi.
Par contre le principe fonctionne

Merci infiniment à Monsieur Tardiff Jean-François pour son effort (surtout il n'avait pas Delphi) et concernant la dernière réponse, ça n'a pas fonctionné puisque des nouvelles erreurs que je ne sais pas résoudre se sont présentées.
En tout cas j'ai résolu mon problème avec une autre méthode:
J'ai mis la requête dans un Tquery réservé seulement pour celle-là puis en double cliquant sur l'objet j'ai ajouté les champs désirés et là j'ai utilisé la propriété DisplayFormat à MonqueryMontant. (c’est une solution pour les apprentis comme moi :oops:)
Bon ben c'est une solution qui ne me permet pas d'avoir des requêtes dynamiques différentes avec un seul Tquery mais :roll: c'est tout ce qu'on possède à bord :).
J'essai de m'améliorer au niveau de langage de programmation, ainsi j'aurait peut être un jour une Unit personnalisée pour la création d'un TMezianeQuery qui répond à ce besoin :mouarf:.
Merci les Pros :king: