Como mostrar decimal en DBGRID

[andrestsas]

Hola a todos

Mi pregunta es la siguiente : Como hago para que cuando estoy en estado de edicion e inserte un numero con decimales en un DBGrid, queden visibles?, ya que ahora solo veo el entero.

y luego para grabarlo en la tabla (paradox)?

Cual es el evento similar a onchange en DBGRID

gracias por su ayuda y saludos . Andres,-

[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.

[andrestsas]

Hola nuevamente Andres

Gracias por tu respuesta:
Es como vos decis nomas, lo que pasa que a veces me engaña un poco si es nivel grid o dataset, de clipper a delphi hay diferencia, ya me ire acostumbrando.
Etoy analizando la funcion.Desde ya muchas gracias por tu ayuda,

Saludos Andres.-