ADOQuery que devuelva campo booleano...

[xalo]

Buenos dias a todos,
Estoy intentando que la siguiente consulta devuelva el campo 'Seleccionado' como booleano y no soy capaz:

Código SQL [-]
SELECT True as Seleccionado,Id,Nombre FROM Clientes

He probado lo siguiente, pero sigue sin identificar el campo como booleano

Código Delphi [-]
DM.Consulta.Active := False;
DM.Consulta.SQL.Text := 'SELECT True as Seleccionado,Id,Nombre FROM Clientes';
DM.Consulta.FieldDefs.Update;
DM.Consulta.fielddefs.Items[1].DataType := ftBoolean;
DM.Consulta.Active := True;

He provado con CAST y varias combinaciones y nada. El resultado que se obtiene es un -1 o 0. Seguramente será algo trivial pero no he sido capaz de verlo.
Se os ocurre alguna alternativa?

Gracias de antemano

[Casimiro Notevi]

¿Y el campo "seleccionado" de qué tipo es y qué valores almacena?
Si es un campo numérico y contiene los valores 0 ó 1 (0.false 1.true) entonces tienes varias formas de hacerlo.

Código Delphi [-]
variablebooleana = "select seleccionado from clientes" = 1

Si seleccionado=1 entonces la variablebooleanda almacenará true, en caso contrario almacenará false.

[xalo]

El campo es de tipo boolean, para que salga un checkbox directo en un dbgrid sin tener que añadir más código. De hecho con sqlite lo tengo funcionando, ya que el wrapper que uso tiene un evento que cuando crea los campos el query (onInitFieldDef) donde le indicas que el campo Seleccionado sea de tipo ftBoolean.
En el caso del ADOQuery no veo la forma.

Gracias por tu interés

[ecfisa]

Hola xalo.

Según esta documentación Datatypes In SQLite:

...
1.1 Boolean Datatype

SQLite does not have a separate Boolean storage class. Instead, Boolean values are stored as integers 0 (false) and 1 (true).
...

Entonces, como te comenta Casimiro, si logras que te devuelva el valor como entero la asignación es tán simple como:

Código Delphi [-]
  ...
  CheckBox1.Checked:= Boolean(DM.Consulta.FieldByName('SELECCIONADO').AsInteger);
  ...

Saludos

[xalo]

Buenas tardes,
Gracias por vuestras respuestas
Realmente lo que busco es que de forma directa reconozca el campo que creo en la consulta como boolean, para que al mostrar el dbgrid salga lo que se muestra en resultadodeseado.png
y no de la manera que se muestra en resultadoactual.png

Se que en el dbgrid se puede hacer que cambie el comportamiento, pero de la misma manera que hice con sqlite, intuyo que con adoquery habrá alguna forma más simple y directa también.

(Nota: En este ejemplo la columna en cuestion se llama SELE)

Gracias

[ecfisa]

Hola xalo.

La verdad es que como no vemos el código donde asignas el valor es dificil darte una respuesta acertada. Como comentas mas arriba estas usando los componentes ADO, por lo que podrías hacer directamente:

Código Delphi [-]
...
  CheckBox1.Checked:=DM.Consulta.FieldByName('SELECCIONADO').AsBoolean;
...

No se me ocurre otra forma de asignar el valor de un campo a la propiedad Checked de un TCheckBox.

Me pregunto si no estarás hablando de un TDBCheckBox... Por que si es el caso, este último posee las propiedades ValueChecked y ValueUnChecked que podes configurar con los valores que desees que considere como verdadero y falso.

Por ejemplo para que interprete los valores 0 y 1 como False y True respectivamente:

Código Delphi [-]
...
  { Ambas propiedades estan publicadas }
  DBCheckBox1.ValueChecked  := '1';
  DBCheckBox1.ValueUnchecked:= '0';
...

Saludos