Como siempre, la solución en varios pasos.
Paso 1.- Al TADOQuery que utilizo para obtener los datos de la rejilla, debo extraerle los nombres de campos hasta llegar al evento OnGetText de cada uno.
Paso 2.- En el dicho evento OnGetText, le incluímos un poquito de código de ésta manera:
Código Delphi
[-]procedure TfrmPrncpl.QueryCampoGetText(Sender: TField; var Text: String; DisplayText: Boolean);
var
redtTemporal : TRichEdit;
sTexto : string;
begin
redtTemporal := TRichEdit.Create(Self);
with redtTemporal do
begin
Parent := frmPrncpl;
redtTemporal.Text := Query.FieldValues['Campo'];
redtTemporal.PlainText := True;
sTexto := redtTemporal.Lines.Text;
Destroy;
end;
Text := sTexto;
end;
Como podemos apreciar, creo un TRichEdit "al vuelo", lo utilizo como "traductor" de los datos contenidos en el campo y devuelvo el texto resultante para ser mostrado en el TDbGrid.
Añado la solución para futuras referencias, sobre todo, mías... jajajajajaja
