Discussion :

[yacinew]

Bonjour,

J'ai une table qui contient les montant des factures,
alors je veux afficher les montants en respectons le masque d'affichage :

exemple :123456789.00 -----> 123 456 789.00

dans une gbgrid et DBEdit
comment faire ça !

Merci

[paulfr]

Bonjour,

pour formater un champ numérique vous avez la propriété "TNumericField.DisplayFormat".
Dans la doc il y a d'autres solutions : Format, TField.EditMask.

PL

[yacinew]

SVP

ou se trouve "TNumericField.DisplayFormat" et Format, TField.EditMask.
est ce que dans le propriétés de la dbgrid

[paulfr]

Bonjour,

TNumericField se trouve dans l'unité DB, et DisplayFormat est une propriété.
Il existe déjà dans Delphi 4.
J'ai plutôt utilisé FormatFloat au niveau de la création d'une DB.

PL

[chekkal]

Bonjour,

Tout dépend du SGBD que tu utilise, sinon regard le composant currency:=true;

[paulfr]

Bonjour

@chekkal effectivement il fallait commencer par ça.



En fait on peut aussi utiliser FormatFloat.

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
27
28
29
Const FCur = '#######.00;;.##';  // si pas de décimale '.00' affiché
 
...
 
procedure TFInstal.DepCrDep(NomTable : string); 
begin
  with FichSt.Tbst do
  begin
    Active := False;  { Le composant Table ne doit pas être actif }
    DatabaseName := '';
    TableType := ...
    TableName := NomTable;
    with FieldDefs do                   // sous Delphi 3
    begin
      Clear;
      ...
      Add('DEBIT', ftFloat, 0, False); 
      ...
    end;
    ...   
    CreateTable;
 
    Open;
    FormatFloat(FCur, FieldByName('DEBIT').AsFloat);    // formatage ajouté ultérieurement
    ...
    FieldDefs.Update;
    Close;
  end;
end;

Dans votre cas FCur = '### ### ###.00; ...'

PL

[solilog]

Bonjour
Où se trouve la propriété DisplqyFormat?
1 - click droit sur le composant tQuery ou TtAble
2 - ajouter tous les champs
3 - click sur le champ désiré
4 - F11 pour voir les propriétés du champs sélectionné
5 - tu renseignes la propriété DisplayFormat (F& - aide pour voir toutes les possibilités)
Tu vois c'est tout facile.
Solilog

[chekkal]

bonjour,

c'est des table paradox donc, alors c'est bizarre parceque paradox contient le "ftcurrency" comme type de champs de table.

[anapurna]

salut

tout dépend de ton type

exemple

Code :

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

1
2
3
4
5
6
7
8
9
 
  uses DB;
...
 
  if (Field.DataType in [ftFloat,ftCurrency, ftBCD, ftFMTBcd]) then
    begin
      TFloatField(Field).Alignment := taRightJustify;
      TFloatField(Field).displayFormat  :=',0.00;-,0.00; ';
    end;