stringgrid 问题

Question

想把很多次的查询结果都放入stringgrid中
查询一次增加一行，但上次数据还在
我的代码如下，能够向但stringgrid添加数据，但查询一次只能显示一条当前的查询结果，怎样实现 ---查询一次增加一行，但上次数据还在
procedure Tznpc.ListBox1DblClick(Sender: TObject);
var i,j,sCol:integer;
begin
 with dm.znpcQuery2 do
     begin
       close;
       sql.Clear;
       sql.Add('select * from food');
       open;
     end;
i:=0;
dm.znpcQuery2.first;
while not dm.znpcquery2.eof do
begin
  StringGrid1.RowCount:=i;
  for j:=0 to dm.znpcquery2.fieldcount-1 do
  StringGrid1.cells[j+1,i]:=dm.znpcquery2.fields[j].AsString;
  inc(i);
  dm.znpcquery2.next
end;

Answer 1

把i:=0改为i:=stringgrid1.rowcount+1;

Answer 2

把
i:=0;
dm.znpcQuery2.first;
while not dm.znpcquery2.eof do
begin
  StringGrid1.RowCount:=i;
  for j:=0 to dm.znpcquery2.fieldcount-1 do
  StringGrid1.cells[j+1,i]:=dm.znpcquery2.fields[j].AsString;
  inc(i);
  dm.znpcquery2.next
end;改成
dm.znpcQuery2.first;
while not dm.znpcquery2.eof do
begin
  StringGrid1.RowCount:=stringgrid1.rowcount + 1;
  for j:=0 to dm.znpcquery2.fieldcount-1 do
  StringGrid1.cells[j+1,StringGrid1.RowCount]:=dm.znpcquery2.fields[j].AsString;
  dm.znpcquery2.next
end;试试！

Answer 3

声援 netwolfds(晓竹) 和 littlerat(Song) 。