将SringGrid的内容复制到一个TStringList中怎样实现？

Question

将SringGrid的内容复制到一个TStringList中怎样实现？

Answer 1

进行循环
......
for i:=0 to StringGrid1.RowCount-1 do
   for j:=0 to StringGrid1.ColCount-1 do
      TStringList.items.add(....)注意你的格式。

Answer 2

ListBox1.Items:= StringGrid1.Rows[1];
或ListBox1.Items:= StringGrid1.Cols[1];

Answer 3

TStringList.items  ???老大们它有items?

Answer 4

......>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Answer 5

var memo:Tstrings;
    s;string;
    j,i:integer;
begin
 memo:=tstringlist.Create;
      for j:=FstringGrid.FixedRows to FstringGrid.RowCount-FstringGrid.FixedRows do
        begin
          s:='';
          for i:=0 to FstringGrid.ColCount-1 do  s:=s+'|'+FstringGrid.Cells[i,j];
          memo.Append(s);
        end;
end;

Answer 6

qwertyasd您的答复的确是可行的我是为了做报表，将stringgrid内的东西打印出来，
我在报表上加了一个QRStringsBand，然后在QRStringsBand上面又加了一个QRExprQRExpr的expression指定为QRStringsBand，然后将tStringList的内容加在给QRStringsBand下面是我改过您给的代码后的var memo:Tstrings;
    s:string;
    j,i:integer;
begin
 memo:=tstringlist.Create;
 s:='';
       for i:=0 to stringGrid1.ColCount-1 do
        begin           for j:=0 to stringgrid1.RowCount-1 do            s:=s+stringGrid1.Cells[i,j];
           memo.Append(s);
        end; application.CreateForm(trep,rep);
 rep.QRStringsBand1.Items.AddStrings(memo);
 rep.QuickRep1.Preview;这样在报表内的确可以显示，但只是显示了第一行或者第一列， 请您和大家指点

Answer 7

你把tStringList的内容放在QuickRep在打印你不觉得麻烦吗？
直接用printer打印就可以了！你可以看一下我的打印控建！下载地址：http://www.csdn.net/cnshare/soft/15/15471.shtm

Answer 8

QuickRep要连接数据源，再能打印全部纪录。
你要想用QuickRep把听tstrings里的内容都打出来，用你的方法即使能打出来，由于字段长度不一样肯定很难看，而且要考虑到翻页等等很多东西，不是一两句能解决的！
我的控建用3000多行代码？只是完成了基本功能。

Answer 9

不好意思，我在您的控件里找到了谢谢， 您的控件打印stringgrid很方便给分