convertir booleano a int o de int a booleano

[jacobobo]

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.

 
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]]

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

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

[radenf]

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]

Empezado por Neftali

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!