Ver como Boolean un campo en Mysql y Zeos en un DBGrid
 

Cordial saludo,

Trabajo con MySql, Zeos y Delphi, en un Form tengo un DbGrid el cual muestra los datos de una tabla, dentro de los datos hay un campo TinyInt es el que utiliza MySql como boolean pero este campo lo muestra como 0 y 1, mi pregunta es como mostrar en el dbgrid este campo como Falso o Verdadero o mejor aun SI o NO.

Gracias

Hola.

Ejemplo:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
  ...
  procedure FormCreate(Sender: TObject);
 private
    procedure DataSetCpoBoolGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
 ...
 end;

...

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.DataSource.DataSet.FieldByName('BOOL').OnGetText := DataSetCpoBoolGetText;
  // igual sería hacer:
  // ZQuery1.FieldByName('BOOL').OnGetText := DataSetCpoBoolGetText;
end;

procedure TForm1.DataSetCpoBoolGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
const
  SINO: array[0..1] of string = ('No', 'Si');
begin
  Text := SINO[Sender.AsInteger];
end;
...

Si tenes el campo a mostrar como persistente, podes crear el evento OnGetText en tiempo de diseño desde Fields Editor~Object Inspector .

Saludos :)

Muchas gracias, genial aporte no podría haberlo resuelto si su ayuda

Otra idea muy elegante es mostrar la columna estilo checkbox como nos comentan en este hilo los amigos del foro

http://www.clubdelphi.com/foros/showthread.php?t=12672

Saludos