separadores de mil a una columna del dbgrid

[ingabraham]

no te entendi.

[oesqueda]

Ok vamos siendo mas explicitos.

Eso que pides no va en el Grid a menos que el grid tenga eventos o propiedades que nos permitan editar, por ejemplo el TcxDBGrid, que es de un tercero y de paga.

Dime que version de delphi usas, que base de datos o componente de base de datos y que Grid es por favor

[ingabraham]

Empezado por oesqueda

Ok vamos siendo mas explicitos.

Eso que pides no va en el Grid a menos que el grid tenga eventos o propiedades que nos permitan editar, por ejemplo el TcxDBGrid, que es de un tercero y de paga.

Dime que version de delphi usas, que base de datos o componente de base de datos y que Grid es por favor

firebir 2.0 , delphi 7

[oesqueda]

Imagino que usas DBExpress o usas IBX?

Código Delphi [-]
var
  i:integer;
begin
for i := 0 to pred(dataset.fieldcount) do
  Case dataset.fields.fields[i].FieldType of
    ftInteger, ftFloat, ftCurrency: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0.00';
  end; {case}
end;

Ya tu haces los cambios y lo adaptas a lo que necesitas, puedes agregar mas tipos de campos, etc.

[ingabraham]

Empezado por oesqueda

Imagino que usas DBExpress o usas IBX?

Código Delphi [-]
var
  i:integer;
begin
for i := 0 to pred(dataset.fieldcount) do
  Case dataset.fields.fields[i].FieldType of
    ftInteger, ftFloat, ftCurrency: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0.00';
  end; {case}
end;

Ya tu haces los cambios y lo adaptas a lo que necesitas, puedes agregar mas tipos de campos, etc.

y si el campo es creado en una subconsulta, como se lo agrego.

[[maeyanes]]

Hola...

Si el resultado de la subconsulta es parte del DataSet que estás usando para obtener los datos, no tienes que hacer nada más.

Yo solo le quitaría que verifique si el campos es del tipo ftInteger ya que mayormente este tipo de datos no necesita formato de decimales.


Saludos...

[oesqueda]

Ampliemos el codigo:

Código Delphi [-]
var
  i:integer;
begin
for i := 0 to pred(dataset.fieldcount) do
  Case dataset.fields.fields[i].FieldType of
    ftInteger: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0';
    ftFloat, ftCurrency: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0.00';
  end; {case}
end;

Entero sin decimales, claro esta que faltan mas tipos de campos, pero ahi te dejo la idea para que lo completes.