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

[ecfisa]

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