Discussion :

[iam]

bonjour tout le monde et merci d'avance pour toute votre attention sur les problèmes que rencontre les autres développeurs,
j'ai un compostant stringgrid dans lequel je saisi des valeurs et que je veux les inserer dans ma table après la saisie, j'ai des champs de type float (des montants) comment les formater après leurs saisie de tel façon qu'ils s'affichent comme des montants (des réels regrouppés en trois et deux décimal après la virgule) est ce qu'il existe une fonction qui fait le formatage d'un texte en un format personnalisé?

[Rayek]

Utlise FormatFloat

Ex :

Code :

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

1
2
 
StringGrid1.Cells[0,1] := FormatFloat('0.00',UnevaleurFloat);

[iam]

j'ai déja utilsé cette fonction FormatFloat et ça n'a pas marché, delphi n'a pas connu cette fonction, est ce que je dois la déclarer?

[DMO]

Tu as juste à faire le uses suivant :

Code :

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

1
2
uses
  SysUtils;

[Rayek]

En réponse a ton MP (pour des trucs comme ça ecrit sur le forum ca pourrait interesser d'autres personnes.

j'utilise formatfloat d'accord, mais je veux quand j'ecris dans une cellule il formate sa valeur en montant(dans la meme cellule)
dans ton expression t'as ecris :
stringgrid.cells[0,1]:=formatfloat('0.00',unevaleurfloat) qu'est ce je mets dans : unevaleurfloat?

A tester

Soit au niveau du OnGetText de ta grid

Code :

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

1
2
3
4
5
6
7
 
procedure TfrmMain.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;
  var Value: string);
begin
  With StringGrid1 do
    Value := FormatFloat('0.00', StrToFloatF(Cells[ACol,ARow],0.00));
end;

Ou soit au niveau du OnDrawCell

Code :

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

1
2
3
4
5
6
7
8
 
procedure TfrmMain.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if ACol = 3 then // le 3 est un exemple , faut voir le numéro de ta colonne
With TStringGrid(Sender) do
  Cells[ACol,ARow] := FormatFloat('0.00', StrToFloatF(Cells[ACol,ARow],0.00));
end;

A tester les deux possibilités.