Convetir us stringgrid en txt

[[seoane]]

Casi me da verguenza sugerir algo tan simple , pero puede que te sirva:

Código Delphi [-]
procedure Guardar(Archivo: String; Grid: TStringGrid);
var
  i: integer;
begin
  with TStringList.Create do
  try
    for i:= 0 to Grid.RowCount - 1 do
      Add(Grid.Rows[i].CommaText);
    SaveToFile(Archivo);
  finally
    Free;
  end;
end;

// Por ejemplo
Guardar('C:\Archivo.txt',StringGrid1);

[roman]

Sencillo y efectivo claro que lo es. Pero sólo funcionará para el StringGrid y no para el DBGrid. La componente de Federico sería más bien para este caso, además de que sirve también para un formato de columnas de ancho fijo.

// Saludos

[jhcaboverde]

seras bueno en delphi para para que se te reconozca no te averguences de ayudar a los demas que estoy seguro que cuando lo necesites seran tu ayuda mas proxima, en fin tu ejemplo me ayudo espero que este texto te ayude a ti.

Juan

Empezado por seoane

Casi me da verguenza sugerir algo tan simple , pero puede que te sirva:


Código Delphi [-]
procedure Guardar(Archivo: String; Grid: TStringGrid);
var
i: integer;
begin
with TStringList.Create do
try
for i:= 0 to Grid.RowCount - 1 do
Add(Grid.Rows[i].CommaText);
SaveToFile(Archivo);
finally
Free;
end;
end;

// Por ejemplo
Guardar('C:\Archivo.txt',StringGrid1);