Modificar Celda de un DBGrid

[jlrdz]

Saludos primero que nada . Tengo una duda y es sobre como modificar o más bien alterar el resultado de una celda que me muestra una dato que obtiene de la base de datos por ejemplo:

Mi campo en la tabla se llama "Tipo" y acepta valores enteros ya sea el numero 1 o 2. En el DBGrid me llena las celdas con uno de esos 2 números pero yo quiero que en lugar de eso me imprima un texto. Para el numero 1 que lo cambie por el texto "Días" y para el numero 2 que lo cambie por "Horas".

Tenía este problema con un reporte pero pude modificarlo con condicionales en el evento BeforePrint pero en el DBGrid no sé como alterar ese resultado, espero puedan ayudarme con esa duda. Estoy utilizando MySQL como base de datos y los componentes de MyDAC para enlazarlos a delphi 7. Saludos.

[*Caro*]

Hola jlrdz, debes utilizar el evento OnGetText de tu campo (Tipo):

Código Delphi [-]
procedure TForm1.QuerytipoGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
 if Sender.AsInteger = 1 then
  Text := 'Días'
 else
  Text := 'Horas';
end;

Saluditos

[jlrdz]

Gracias por tu respuesta. He buscado el evento OnGetText en el DBGrid pero no está, así también lo busqué en los eventos del componente de mi consulta y tampoco. Estoy utilizando el componente TMyQuery de MyDac. :/

[*Caro*]

Hola de nuevo, debes hacer tus campos persistentes (doble click en tu dataset, click derecho y añades los campos), seleccionas tu campo tipo y veras los eventos que tiene, entre ellos el OnGetText.

Saluditos

[jlrdz]

Listo!, me ha funcionado perfectamente, Caro , muchísimas gracias por tu ayuda. Saludos.