Discussion :

[SAca]

Je programme sous Delphi 6.

Je désire pouvoir ouvrir des BDD Access dont les tables et les champs sont à priori inconnus avant l'ouverture.

Sur une feuille je place DataSource, Table, Database, DBGrid.

Après choix d'une BDD je récupère les tables qui y sont présentes.

Après choix d'une table, j'affecte les noms de la BDD et de la table aux propriétés adhoc des composants Database et Table et je termine en activant les deux. Le contenu de la table s'affiche dans DBGrid.

Mais je voudrais que les données de type ftFloat s'affichent formatées dans DBGrid: uniquement les 2 premères décimales après la virgule.

Si je connaissais par avance la structure de la BDD je pourrais par un clic droit sur le composant Table choisir 'Fields Editor', Ajouter les champs de la table et pour les champs appropriés éditer la propriété 'DisplayFormat'.

Mais par principe la structure de la BDD est inconnue et je n'arrive pas par code, à l'execution, accéder à cette propriétée pour lui donner la valeur voulue (#0.00).

Merci de l'aide.

[DarkWinter]

Voilà le code, a placer idealement dans l'evenement AfterOpen de la table :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
var i :integer;
begin
 
 for i := 0 to table.fields.count - 1 do
   if table.fields[i].FieldType in [ftFloat , ftCurrency]
            Then table.Fields[i].DisplayFormat := '#0.00';
 
end;

[SAca]

Merci DarkWinter pour ton aide et la rapidité de la réponse.

En fait je n'avais pas compris que c'est dans l'évènement 'AfterOpen' qu'il fallait placer le code.

[SAca]

DarkWinter ce code ne marche pas.
En fait je l'avais déjà utilisé mais pas dans l'évènement 'AfterOpen'.

Je suis un programmeur amateur, avec une certaine expérience, mais étant passé sous Delphi il y a qq mois je ne le maîtrise pas totalement.

Cependant j'ai essayé de creuser un peu le problème sans aboutir pour l'instant au résultat recherché.

Code :

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

table.fields[i]

est un TField et TField ne possède pas de propriété 'DisplayFormat'. Cette propriété n'est disponible que pour les descendants numériques de TField (TIntegerField, TFloatField etc...).

Quand on connaît la structure de la BDD on implémente des champs persistants (clic droit sur le composant Table choisir 'Fields Editor', Ajouter les champs de la table qui sont donc les descendants de TField, et pour les champs appropriés éditer la propriété 'DisplayFormat').

Mais quand la structure de la BDD est à priori inconnu on a à faire aux champs dynamiques.

Et dans ce cas je ne sais pas par code instencier les descendants adhoc de TField et donc non plus à leur propriété DisplayFormat.

Ma demande d'aide reste d'actualité. Merci d'avance.

[DarkWinter]

Ok désolé je n'ai pas Delphi installé sur ce poste je ne peut pas tester mon code

Essaye alors avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
 
var i :integer; 
begin 
 
 for i := 0 to table.fields.count - 1 do 
       if table.fields[i].FieldType = ftFloat
              Then (table.Fields[i] as TFloatField).DisplayFormat := '#0.00'; 
 
end;

[SAca]

Merci DarkWinter, c'est le bon code.

C'est bien par maîtrise insuffisante du language que je n'y étais pas arrivé.

Problème résolu donc.

[NoisetteProd]

Merci de cliquer sur le bouton resolu en bas a gauche alors !!