Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Pasar datos de un Stringrid a un memo (https://www.clubdelphi.com/foros/showthread.php?t=91505)

CarlosAlberto 21-02-2017 11:51:34

Pasar datos de un Stringrid a un memo
 
Estimados amigos: deseo pasar los datos introducidos en un stringgrid a un memo conservando el formato de filas y columnas. Si alguno me puede ayudar se lo agradezco.
Saludos.
Carlos Alberto

AgustinOrtu 21-02-2017 13:12:44

Supongo que si sabes agregar en un TStringGrid entonces también sabes recorrerlo. Es cuestión de iterar por filas y por columnas (osea, dos for anidados) e ir escribiendo en el memo.

No sé a qué te refieres exactamente con conservar el formato

Neftali [Germán.Estévez] 21-02-2017 13:13:03

Cita:

Empezado por CarlosAlberto (Mensaje 513527)
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.

ecfisa 21-02-2017 13:35:24

Hola.

Otra opción:
Código Delphi [-]
...
var
  i : Integer;
begin
  for i := 0 to StringGrid1.RowCount-1 do
  begin
    StringGrid1.Rows[i].Delimiter := ' ';
    Memo1.Lines.Add( StringGrid1.Rows[i].DelimitedText );
  end;
...

Saludos :)


La franja horaria es GMT +2. Ahora son las 10:27:58.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi