DBGrid llenar valores Booleanos mostrando forma String

[*Caro*]

Hola, tienes que utilizar el evento OnGetText de tu campo.

Código Delphi [-]
procedure TForm1.Query1CampoGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
 if Sender.AsInteger = 1 then
  Text := 'ATENDIDO'
 else
  Text := 'PENDIENTE';
end;

Saluditos

[mrnovice]

jeje no encontré el evento en el query o en el DBGrid pero recuerdo haberusado al menos la función GetText voy a seguir investigando gracias por tu tiempo.

[[Delphius]]

mrnovice, lo que dice caro es que utilices el evento OnGetText del CAMPO, ni el DBGrid ni el TQuery tienen este evento. Haz tus campos persistentes, seleccionalo y verás los eventos que dispone.

Saludos,

[*Caro*]

Empezado por mrnovice

jeje no encontré el evento en el query o en el DBGrid pero recuerdo haberusado al menos la función GetText voy a seguir investigando gracias por tu tiempo.

Hola, el evento no esta en el DBGrid tampoco en el query, esta en el campo, dale doble click a tu DataSet (Query/Table) , ahí, click derecho y añades los campos, esta en los eventos de los campos que añadas, tu debes escoger el OnGetText del campo que necesites.

Saluditos

[[Delphius]]

Ahora bien, si tus consultas van a ser armadas en tiempo de ejecución, no es posible emplear campos persistentes. En este caso lo que debes emplear es el CASE en tu SQL.

Desconozco MySQL, pero algunos motores tienen la sentencia CASE.

Se puede hacer algo como:

Código SQL [-]
SELECT tus_campos, 
CASE campo_booleano WHEN '1' THEN 'Atendido' ELSE 'Pendiente' end 
FROM tabla
...

Puedes verificar también si MySQL tiene además alguna función equivalente a IIF() de Firebird 2.0

Saludos,

[luisgutierrezb]

Creando los campos en el dataset no es necesario usar el GetText, esta la propiedad Display values la cual mostrara el valor por ejemplo

Campo.DisplayValues := 'Atendido;Pendiente';
son los valores que puede tener separados por ";"
o
Campo.DisplayValues := ';Pendiente';

en este ultimo solo mostraria algo en falso...

[mrnovice]

Saludos nuevamente, ya estuve viendo las propuestas y me parecio muy interesante la instrucción SQL el problema es que Delphi no me la detecta incluso si la hago vista saben a qué se debe esta situación?
esta es mi instrucción

Código SQL [-]
SELECT CASE ESTADO WHEN '1' THEN 'ATENDIDO' ELSE 'PENDIENTE' AS ESTADO FROM TABLA

Y la converti a Vtabla(es la vista) pero no me detecta delphi ese campo qué ondas :S jojo gracias nuevamente a su contribución thanks. en cuanto a displayvalues o gettext ando muy perooo muy perdido :S JEJE PERO YA LO ENCONTRÉ PERO ME GUSTARIA ENTENDER LO QUE PASO CON EL SQL POR FAVOR

[*Caro*]

Hola de nuevo, yo también pienso que es mejor que utilices el Case en tu consulta. En mysql si funciona, tal cual te lo ha puesto Delphius. En lo que tu nos estas mostrando lo unico que veo que el falta es un end

Código Delphi [-]
SELECT CASE ESTADO WHEN '1' THEN 'ATENDIDO' ELSE 'PENDIENTE' END AS ESTADO FROM TABLA

Saluditos

[mrnovice]

Si Se Lo Habia Puesto En La Sql /query Ese No Es El Detalle
No Me Lo Detecta Delphi El Campo "as Nombrecampo" <---por Ejemplo

[[Delphius]]

Hola mrnovice,
¿Podríamos ver el código y la consulta que tienes?
Si te da un error, por favor copia y pega el nombre exacto del error para saber a que enemigo nos enfrentamos

Tal vez exista un inconveniente, muy poco probable... pero puede que exista, en nombrar un alias a un campo cuando se emplea el CASE. No uso MySQL por lo que no te sabría decir.

Cuanto más detalles nos puedas dar sobre el caso mejor te asesoraremos.

Por cierto, si no es molestia te pediría que no escribieras de ese modo... la verdad es que hace más difícil la lectura.

Saludos,

[mrnovice]

HOLAS, PUES LO HE RESUELTO CON EL GETTEXT PERO ME SIGUE PICANDO LA DUDA EL MÉTODO USANDO SQL AGRADEZCO A TODOS SU AYUDA EN SERIO
AQUI VA

Código SQL [-]
SELECT IDSERV,FECHASERV,TIPOSERV,
CASE estado WHEN '1'THEN 'ATENDIDO' ELSE 'PENDIENTE' END  AS ESTADO
FROM SISTEMA.SERVICIO ORDER BY IDSERV ASC