Como mostrar decimal en DBGRID

[andres1569]

Hola:

Como ya te indiqué en un hilo anterior, debes pensar estas cosas a nivel de Dataset, no del DBGrid. En la propiedad DisplayFormat de un campo de tipo numérico (TIntegerField, TFloatField, TCurrencyField ...) puesdes indicarle la forma en que se mostrará al usuario (da igual que luego lo muestres en un TDBGrid, en un TDBEdit, ...etc). Supongamos que quieres mostrar la cantidad con puntos para los millares y con 2 decimales, entonces en la propiedad DisplayFormat pones esto: ,#.00.

Para que se grabe en tu tabla Paradox exactamente redondeado a 2 decimales, usa el evento BeforePost del Dataset, y ahí lo redondeas:

function Redondea (r: Double) : Int64;
begin
  if (r < 0) then Result := TRUNC (r - 0.5)
  else result := TRUNC (r + 0.5);
end;

function RedondeaSegundoDecimal (r: Double) : Double;
var
  i : Int64;
begin
  i := redondea (r * 100);
  result := i * 0.01;
end;

procedure MiTablaBeforePost;
begin
  with MiTablaCantidad do 
    AsCurrency := RedondeaSegundoDecimal (AsCurrency);
end;

La función Redondea sustituye el uso del ROUND (que tiene la particularidad de hacer un redondeo diferente si el número es par de si es impar), y la función RedondeaSegundoDecimal devuelve un número con sólo 2 decimales.

Otras formas de redondear, en este hilo:

http://www.clubdelphi.com/foros/show...?threadid=2643

El DBGrid no tiene un evento OnChange propiamente dicho, puedes saber cuando se entra o sale a una columna (OnEnter y OnExit), y si quisieras una funcionalidad muy avanzada, se puede buscar la manera de acceder al editor interno de cada celda (InplaceEditor) pero no creo que sea el caso. Como digo al principio, plantéate estas cosas a nivel de DataSet.