Formato numero

[odrack]

Saludos!!

Creo que has respondido mi pregunta, la mayor parte de los campos en la base de datos los tengo en Char incluyendo los campos de cantidades, al llamar los campos y al hacer operaciones los convierto en datos de tipo floatante y regreso el resultado a string nuevamente.

Habra alguna solución para mostrar datos en pantalla de tipo numerico con comas y cecimales sin que me afecte la operacion??

Gracias Delphius!!

[[Delphius]]

Empezado por odrack

Saludos!!

Creo que has respondido mi pregunta, la mayor parte de los campos en la base de datos los tengo en Char incluyendo los campos de cantidades, al llamar los campos y al hacer operaciones los convierto en datos de tipo floatante y regreso el resultado a string nuevamente.

Habra alguna solución para mostrar datos en pantalla de tipo numerico con comas y cecimales sin que me afecte la operacion??

Gracias Delphius!!

Bueno, lo ideal y lógico sería que cambiases el tipo de dato en tu base de datos.
Ya que esto te evita estar haciendo esas innecesarias conversiones que lo único que hacen es complicar la lógica de tu aplicativo.

Ahora bien, hacer esto implica eliminar los campos persistentes y volver a crearlos. Y tal vez algunas que otras modificaciones en tu código.

Si por alguna cuestión no puedes cambiar el tipo, lo que puedes hacer es emplear los eventos onGetText y OnSetText de tus campos.

Este evento se puede aprovechar para cambiar el texto a mostrar y a guardar. Si te fijas ambos eventos tienen un parámetro Text. Es éste Text el que se debe y puede aprovechar para alterar el texto a mostrar y/o a guardar:

Código Delphi [-]
procedure TForm1.IBTable1MONEDAGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin

end;

procedure TForm1.IBTable1MONEDASetText(Sender: TField; const Text: String);
begin

end;

En mi ejemplo uso un IBTable, y un campo llamado MONEDAS.


Revisa la ayuda para más información.

Saludos,

[odrack]

Nuevamente gracias delphius!!

Solo tengo una duda, los datos de ongettext y onsettext tambien me sirven para un TQuery??, ya que no he logrado ver esas propiedades en los eventos

Saludos!!

[[Delphius]]

Empezado por odrack

Nuevamente gracias delphius!!

Solo tengo una duda, los datos de ongettext y onsettext tambien me sirven para un TQuery??, ya que no he logrado ver esas propiedades en los eventos

Saludos!!

A ver si nos entendemos,

OnGetText y OnSetText son dos eventos disponibles para los objetos TField y descendientes de éste, es decir que se aplican a los campos. Es independiente del dataset que se emplee.

¿Que propiedades?
Selecciona el campo persistente, ve a la solapa eventos... allí está el evento. Ya, lo que hagas allí dentro es otra cosa...

Por favor, se más detallista de como estás haciendo esto. Cuanto más nos puedas explicar y comentar de los pasos que estás haciendo más fácil será ayudarte.
No estoy a tu lado, no puedo ver donde tienes el problema.

Saludos,

[odrack]

No me explique bien,

Lo que trato de decir es lo siguiente, tengo una forma que contiene un button, dbgrid, dbedit, Tquery y un Datasource.

Con el boton hago la consulta de mi base de datos

Query1.close;
query1....
....

Con esto obtengo los datos en el dbgrid y en dbedit.text

Los eventos ongettext y onsettext los he buscado en Tquery, Dbgrid y en los dbedit, pero no los veo para poder crear el procedimiento que mencionas

Código Delphi [-]
procedure TForm1.IBTable1MONEDAGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin

end;

Mi pregunta era que si en los eventos de Tquery o dbgrid se encontraban OnGetText y OnSetText.

Espero haberme explicado, por que creo que ya me confundi un poco!

[[Delphius]]

¡Y yo ya no se como decirte que esos eventos no pertenecen al dataset (en tu caso TQuery) sino a los campos persistentes!

Si buscas en los foros sobre OnGetText y OnSetText vas a encontrar algunos ejemplos.
Por otro lado, si no lo hiciste aún, recomiendo la lectura del libro La Cara Oculta de Delphi 4. No tiene desperdicio.

Saludos,