como dar formato a un campo float en un dbgrid con datos de un select

[gmontes]

ok, tengo una aplicacion en delphi6, con firebird y componentes zeos

el problema es que hago un select a una tabla de articulos y el resultado queda en un dbgrid, modifico unos campos y al guardar 12.50 en la base de datos queda como 12.499999998 etc etc. al llamarlo de nuevo se ve este resultado.

la cuestion es como darle formato de dos decimales a los campos float. no se puede con displayformat porque los campos salen de un select.

soluciones?

neófito

[marcoszorrilla]

Prueba con esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
n:Integer;
begin

  for n:=0 to Query1.FieldCount -1 do
  begin
    if Query1.fields[n].DataType = ftFloat then
      TFloatField(Query1.Fields[n]).DisplayFormat := ',0.00';
  end;
end;

Un Saludo.

[ContraVeneno]

si solo es un campo y alguna veces, entonces:

Código Delphi [-]
formatfloat('#,##0.00', TuCampo.AsFloat);

si es muchas veces, entonces la opción de Maese Marco es mucho mejor...

[gmontes]

funciono perfecto, muchas gracias