Ver Mensaje Individual
  #1  
Antiguo 12-03-2007
Avatar de kuan-yiu
[kuan-yiu] kuan-yiu is offline
Miembro Premium
 
Registrado: jun 2006
Ubicación: Galicia. España.
Posts: 1.017
Reputación: 19
kuan-yiu Va camino a la fama
Volcado a Excel de un TMemoField

Hola a tod@s y gracias de antemano.

Tengo un problemilla con un campo de una consulta y el modo de pasarlo a una celda en Excel.
El procedimiento de volcado a excel ya lo tengo y funciona perfectamente, bueno, funcionaba, hasta que se ha hecho un pequeño cambio en una de las tablas de la BD (Oracle 9i).
Tengo un campo comentario que tengo que volcar en una celda Excel que se ha convertido en un varchar(1000), lo que implica que en Delphi deja de ser un TStringField para ser un TMemoField.
Los datos los obtengo a través de una simple TQuery y aquellos campos que uso en el volcado los incorporo por medio del "Add Fields..." de la propia consulta.

El campo ahora tiene varias líneas con retornos de carro y eso me impide pasarlo tal y como lo hacía antes:
Código Delphi [-]
        WorkSheet.cells[intRow,3].value:= qinformeCOMNT_PPTO.AsString;
Ya que de este modo me saca caracteres extraños cuando hay un retorno de carro.

¿Cómo paso un TMemoField que puede no tener datos o tener una única línea, o tener varios retornos de carro a una celda excel?
Responder Con Cita