Hola elmago00.
De nada.
Agregando un
TButton, un
TSaveDialog y muy poco código, podes continuar el anterior:
Código Delphi
[-]
...
procedure SaveDump(aFileName:TFileName; SG: TStringGrid);
var
c,r: Integer;
s: string;
begin
with TStringList.Create do
try
for r:= SG.FixedRows to SG.RowCount-1 do
begin
s:= '';
for c:= 0 to SG.ColCount-1 do s:= s + SG.Cells[c,r] + ' ';
SetLength(s,Length(s)-1);
Add(s);
end;
SaveToFile(aFileName);
finally
Free;
end;
end;
...
procedure TForm1.btnSaveToTxtClick(Sender: TObject);
begin
with SaveDialog1 do
begin
Filter:= '*.txt';
DefaultExt:= '*.txt';
if Execute then
SaveDump(FileName, StringGrid1);
end;
end;
Saludos