[Code] Affichage décimales ds une table créée dynamiquement

**Archibald29** · 07/03/2006, 09h51

Je ne parviens pas à formatter mon affichage dans une grille reliée à une table créée dynamiquement.

Les valeurs avec décimales sont affichées avec un ou deux chiffres aprés la virgule, les valeurs qui n'ont pas de décimales sans rien dérrière la valeur elle même.

Le format currency semble bien respecté lorsqu'on ouvre la table avec l'utilitaire de base de données : on a bien deux chiffres aprés la virgule quelle que soit la valeur, donc quelquefois deux zéros...

Ce code est du code delphi 3.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
  Try
    DynamicTbl := TTable.Create(Self);
  Except
  End;
 
  with DynamicTbl do
  begin
      Active := False;
      TableName := 'DynamicTbl';
      TableType := ttDbase;
      FieldDefs.Clear;
      FieldDefs.Add('FACTURE', ftString, 14, False);
      FieldDefs.Add('TOTAUX', ftCurrency, 0, False);
 
      While not DSCATPAI.EOF do
      Begin
          FieldDefs.Add(Trim(DSCATPAI['CODE']), ftCurrency, 0, False);
          DSCATPAI.Next;
      End;
 
      CreateTable; { crée la table}
      DataSource3.DataSet:=DynamicTbl;
      DBG.DataSource:=DataSource3;
      DynamicTbl.Open;
.....

Je souhaite dans un premier temps obtenir l'affichage avec deux décimales sur le champ TOTAUX qui est du type Currency.

Qui a une idée ?

**TicTacToe** · 07/03/2006, 10h15

Au lieu d'utiliser les FieldDefs, tu peut ajouter des Fields à ta table, et benéficier ainsi de toutes les prop. des TxxxField, comme le formattage de l'affichage.

Code :

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

1
2
3
4
5
6
7
       MonField := TFloatField.Create( MaTable.Owner );
       MonField.Name := 'MonNomUnique';
       MonField.FieldName := MaTable.Name + MonField.Name;
       MonField.DisplayLabel := 'MonTitrecolonne';
       MonField.DisplayFormat := '0.##;-0.##'; // <- je pense que c'est le bon format
       MonField.DisplayWith := 10;
       MonField.DataSet := MaTable;

Bon courage !