Ver Mensaje Individual
  #3  
Antiguo 21-02-2017
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.276
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por CarlosAlberto Ver Mensaje
deseo pasar los datos introducidos en un stringgrid a un memo conservando el formato de filas y columnas.
żY cual es el problema?

1) Define en el Memo una fuente de ancho fijo. Por ejemplo una Courier para que se respeten las columnas
2) Recorre las filas del StringGrid y ves pasando cada línea al memo.

Código Delphi [-]
for i:=0 to (StringGrid.RowCount - 1) do
  Memo1.Lines.Add(StringGrid.Rows[i])

Si quieres que en el Memo se mantengan las columnas, como no tiene soporte para ellas, tendrás que simularlo utilizando espacios.
Primero tendrás que calcular para cada columna cual es el dato más grande (en caracteres) y para el resto rellenar con espacios hasta ese ancho.
En ese caso, no podrás transferir cada línea de una vez, sino que tendrás que hacerlo para cada celda.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita