Formatear columna dbgrid

[cucuy]

Hola Lepe, si si te entiendo mira ya hice el procedimiento que tu me dijiste en una forma aparte y si funciona si formatea los valores de forma correcta, pero por lo que vi el query no lo puedo utilizar para mostrar agregar o modificar informacion de otra tabla diferente a la que agrege los campos, por que. Si le pongo add fields y agrego los campos de la inventario en un boton puedo insertar eliminar y buscar con ese query, pero si deseo mostrar informacion de la tabla trabajadores con el mismo query de volada me bota el error que no encuentra el campo cantidad. Por como yo lo entiendo al agregar el campo al fieldseditor se queda fijo i siempre que se utilice ese query va tener que ir incluido un campo con ese nombre, no se si me di a entedender, en pocas palabras al usar el fields editor y agregar campos al estarlo haciendo en tiempo de diseño estoy ligando de forma permanente a la tabla inventario....
Saludos...... y gracias por contestar

[[Lepe]]

vale, vale, ahora si te he entendido.

Entonces tienes que realizar algunas argucias. A ver si de memoria puedo resolverte algo:

Código Delphi [-]

const MisCamposFormateados = 'cantidad;importe';

procedure FormateaCampos(query:TQuery);
var I:integer;
begin
  for i:= 0 to query.FieldCount -1 do
   if Pos(Query.Fields[i].FieldName, MisCamposFormateados) <> 0 then
     Query.Fields[i].DisplayFormat := ',#0.00'
end;

El tema consiste en guardar en una constante todos los campos que quieres que sean formateados en tiempo de ejecución. Ahora con esa rutina, puedes añadir el displayFormat a todas las querys que tengas en tu programa.

Para usarlo:

Código Delphi [-]
   qry1.close;
   qry1.sql.Text := 'select * from inventario';
  FormateaCampos(qry1);
  qry1.Open;
...
  qry1.Close;
  qry1.sql.text := 'select * from trabajadores');
  FormateaCampos(qry1);
  qry1.Open;

tanto en la tabla trabajadores como en la inventario, si existe un campo llamado "cantidad" o bien "importe", se le añade los separadores de millares.

Si al tiempo de crear los nombres de los campos has sido cauteloso, y los nombres de los campos son iguales, una rutina de este tipo puede servirte.

Se podría hacer de una forma más eficiente, pero tendríamos que complicar un poquito más el diseño, si estas interesado avisa.

Saludos.

[cucuy]

Hola Lepe fijate que todo hiba bien osea a mi esa se me hace una solucion muy buena por que puedo manipular por codigo y me quito de andar por todos los componentes configurando bueno el problema es el siguiente puse tu codigo tal y como me lo dijiste pero...............

procedure FormateaCampos(query:TADOQuery);
var I:integer;
begin
for i:= 0 to query.FieldCount -1 do
if Pos(Query.Fields[i].FieldName, MisCamposFormateados) <> 0 then
Query.Fields[i].DisplayFormat := ',#0.00'
end;

lo puse asi i me sale [Error] Unit1.pas(44): Undeclared identifier: 'DisplayFormat'

sigue sin reconocerme el DisplayFormat como la vez

Saludos..... i mil gracias

[jachguate]

Empezado por cucuy

lo puse asi i me sale [Error] Unit1.pas(44): Undeclared identifier: 'DisplayFormat'

sigue sin reconocerme el DisplayFormat como la vez

Claro, porque TField no tiene esa propiedad, que si tiene TFloatField. He visto que ya te han recomendado antes aplicar un molde de tipo para este caso:

Código Delphi [-]
const MisCamposFormateados = 'cantidad;importe';

procedure FormateaCampos(query:TQuery);
var I:integer;
begin
  for i:= 0 to query.FieldCount -1 do
   if Pos(Query.Fields[i].FieldName, MisCamposFormateados) <> 0 then
     (Query.Fields[i] as TFloatField).DisplayFormat := ',#0.00'
end;

[cucuy]

Holaaaaaaaa por fin despues de mil intentos funciono si era la solucion el TFloadField era la diferencia gracias a todos por la ayuda:
const MisCamposFormateados = 'cantidad;importe';

procedure FormateaCampos(query:TQuery);
var I:integer;
begin
for i:= 0 to query.FieldCount -1 do
if Pos(Query.Fields[i].FieldName, MisCamposFormateados) <> 0 then
(Query.Fields[i] as TFloatField).DisplayFormat := ',#0.00'
end;

asi funciona de forma correcta jejejeje es de mucha ayuda ese procedimientomuchas gracias por todo hasta luego byeeeeeee