separadores de mil a una columna del dbgrid

[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.

[ecfisa]

Empezado por ingabraham

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

Hola ingabraham.

Te ruego que habras otro hilo con ese tema ya que no tiene relación con este hilo.

Muchas gracias.