separadores de mil a una columna del dbgrid

[ecfisa]

Hola.

compañero pero yo mas que todo uso el query en mis consultas. como seria

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.

[oesqueda]

Sin animo a controversia, prefiero el Case, ya que asi acomodas como desees el formato segun el tipo, es mas rapido que un IF y para mi es mas claro en la lectura ademas.

Código Delphi [-]
var
  i: Integer;
begin
  for i:= 0 to IBQuery1.FieldCount -1 do
    Case IBQuery1.Fields[i].DataType of
      ftFloat, ftCurrency, ftBCD: NumericField(IBQuery1.Fields[i]).DisplayFormat :=  '#,###,###,###,##0.00';
      ftInteger: NumericField(IBQuery1.Fields[i]).DisplayFormat :=  '#,###,###,###,##0';
    end; {case}

Claro esta que es ya de cada quien

[ecfisa]

Hola oesqueda.

Lo que quise ejemplificar a ingabraham fue como acceder a la propiedad DisplayFormat desde la consulta y puse más énfasis en la simplicidad del código que en la eficiencia del mismo.

Aunque realmente, en un código que se ejecuta esporádicamente, para una cincuentena de campos como mucho y comparando dos o tres valores, no pareciera que el uso del case mejore significativamente la performance de la aplicación en este caso.

Saludos.

[oesqueda]

En tal caso mi estimado es a cuestion del programador, a mi me gusta mas el Case, ya imgabraham vera cual le satisface mejor no crees?

[ecfisa]

ya imgabraham vera cual le satisface mejor no crees?

Totalmente de acuerdo, ahora que sabe que cast aplicar para obtener la propiedad DisplayFormat, que creo era la dificultad que dijo tener:

me dice que no lo reconoce, ni displayformt
lo probe utilizando un dataset

Saludos.

[ingabraham]

Empezado por ecfisa

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.

[ecfisa]

Hola ingabraham.

Para disipar toda duda probé el código que te adjunté con la siguiente tabla:

Código SQL [-]
CREATE TABLE PRUTYPENUM(
  BIGNUM BIGINT,
  DECIMALNUM DECIMAL(15,3),
  DOBLEPRESNUM DOUBLE PRECISION,
  FLOATNUM FLOAT,
  INTEGERNUM INTEGER,
  NUMERICNUM NUMERIC(15,3),
  SMALLINTNUM SMALLINT
);

Como bién verás, contempla todos los tipos numéricos. Y no genera ningún tipo de error.

Revisé el hilo desde el principio y no has puesto una sóla línea de tu código. No está a nuestro alcance adivinar que es lo que estas haciendo.

Por que no nos simplificas un poco la tarea y nos pones: El tipo de campos que definiste en Firebird, la porción de código involucrado donde te genera el error, la línea donde se produce y "literalmente" el mensaje que te arroja.

Gracias.

[ingabraham]

tengo un bdgrid/ query y dataset conectado
utilizo delphi 7 y firebird 20

este es el bton que me muestra la consulta

Código Delphi [-]

    with DMDatos.IBMostrarDatos do
     begin
       SQL.Clear;
       SQL.Add(' Select  * From  CONTRATOS  ');
       Open;
     end;

ahora este codigo que me dan , cualquiera de los que me han dado. lo adiciono a continuacion de esto.

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;

me muestra que no reconoce los tipos ftFloat, ftCurrency, ftBCD


falta alguna uses, x que no me reconoce esto.

[ecfisa]

Hola ingabraham.

No parece haber ninguna cosa extraña en tu código, todo es correcto.

falta alguna uses, x que no me reconoce esto.

Puede ser que no tengas incluida la unit DB, ya que TFieldType está definido allí.

Ayuda de Delphi:

Unit

DB

Delphi syntax:

type TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd);

Fijate si falta la unit DB en la cláusula uses, por ahí es eso...

Saludos.

[ingabraham]

exacto era la uses DB.

companneros tambien encontre este procedure x alli.

Código Delphi [-]
Procedure TExportar.SetFormatoGrilla(Sender:TDBGrid);
Var
    Index:Integer;
Begin
     For Index:=0 To (Sender.FieldCount-1) Do
     Begin
           Try
              Case (Sender.Fields[Index].DataType) Of
                   ftInteger :TIntegerField(Sender.Fields[Index] ).DisplayFormat  :='#0';
                   ftFloat   :TFloatField( Sender.Fields[Index] ).DisplayFormat   :='###,##0.00';
                   ftDate   :TDatetimeField( Sender.Fields[Index] ).DisplayFormat:='dd/mm/yyyy';
              End;

           Except

           End;
     End;

End;

[ingabraham]

ok , ahora quiero verificar si un campo llamado cedula, tipo texto puedo separarlo con puntos. no se si se pueda esto.