Hola
Otra opcion es usar el event ongettext del objeto de campo que quieres visualizar
Código Delphi [-]procedure TForm1.MiDatasetMiCampo1GetText(Sender: TField; var aText: string;
DisplayText: Boolean);
begin
case sender.asinteger of
-1:Atext:='P';
-2:Atext:='/';
-3:Atext:='E';
end;
end;
__________________
Caminante, son tus huellas el camino y nada más; Caminante, no hay camino, se hace camino al andar.
Antonio Machado
|