Ver Mensaje Individual
  #16  
Antiguo 12-06-2011
Avatar de ingabraham
ingabraham ingabraham is offline
Miembro
 
Registrado: ago 2007
Posts: 614
Reputación: 19
ingabraham Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
Hola.

Proba de este modo:
Código Delphi [-]
var
  i: Integer;
begin
  for i:= 0 to IBQuery1.FieldCount -1 do
    if IBQuery1.Fields[i].DataType in[ftFloat, ftCurrency, ftBCD] then
      TNumericField(IBQuery1.Fields[i]).DisplayFormat:= '#,###,###,###,##0.00';
end;

Saludos.
donde coloco este codigo ahora me sale errror en ftfloat

y en tnumericfield.
__________________
Enseñar es la virtud de un sabio.
Responder Con Cita