ThousandSeparator := ','; DBGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, FormatFloat('###.###.###,#####', Field.AsFloat));
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TWndMain.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin try DBGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, FormatFloat('###.###.###,#####', Field.AsFloat)); except DBGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Field.AsString); end; end;
ThousandSeparator := ',';