Foros Club Delphi - convertir booleano a int o de int a booleano

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - convertir booleano a int o de int a booleano (https://www.clubdelphi.com/foros/showthread.php?t=65820)

jacobobo

15-01-2010 05:00:47

convertir booleano a int o de int a booleano

Hola amigos del club, hize una migracion de paradox a mysql he estado cambiando el codigo adaptandolo a la nueva base de datos pero me he encontrado con un problema no se como resolverlo ya que un boton en su propiedad visible es booleano y estoy comparando un valor de una tabla en mysql que es del tipo tinyint (1) ya que en mysql he observado que no hay el tipo booleano por eso tuve que hacerlo asi. estoy utilizando los componentes zeos para conectar con mysql, el error que me manda es que son incompatibles los datos int y boleanos.

// m1 : es un boton
// datos.zcliente2activo.value : es una tabla con el campo activo es del tipo tinyint (1) ya que no existe el tipo booleano.

Código:

 

if (m1.visible) <> (datos.zcliente2Activo.value )  then     

  begin

           m1.visible := datos.zcliente2Activo.value ;     

           vp1.visible := datos.zcliente2Activo.value ;    

           bp1.Visible := datos.zcliente2Activo.value ;   

 

  end;

gracias.

Neftali [Germán.Estévez]

15-01-2010 10:36:23

Debería funcionar esto:
(es lo más sencillo que se me ocurre)

Código Delphi [-]  m1.visible := Boolean(datos.zcliente2Activo.Value);

radenf

15-01-2010 10:57:23

Estimado jacobobo :

En mysql si existen los campos boolean.
Utiliza MyManager Sql para confeccionar tu BD y verás que ahí tienes la opción.

Salu2

bosster_018

05-12-2012 15:24:45

Cita:

Empezado por Neftali (Mensaje 350800)

Debería funcionar esto:
(es lo más sencillo que se me ocurre)

Código Delphi [-]  m1.visible := Boolean(datos.zcliente2Activo.Value);

PERFECTO!

Siguiendo con este tema del 15 de enero del 2010.....
La solución planteada por Neftali me funcionó con Delphi 2010, Mysql y una Tquery

Ejemplo de como modificar un chekbox en una consulta con una TQuery:

Código Delphi [-]//la consulta se hace normalmente, luego le paso los resultados de la consulta a este chekbox1
Chekbox1.Checked:= Boolean(Query1.FieldByName('Habilitado').AsInteger);

Vine al post buscando una solución, y me sirvió a pesar que este tema lleva dos años

Saludos!

La franja horaria es GMT +2. Ahora son las 11:14:05.