stingAlignGrid

Question

我用stingAlignGrid来显示数据库字段内容改变时,方格的颜色也随着变化。我用的是定时器来刷新的，但程序运行后，内存占有不断增加，很有规律，请帮忙解决！不胜感激。在ontimer事件代码如下:
 
 query1.First;
  while not query1.Eof   do   
  begin
   with stringaligngrid1 do
    for I :=0 to RowCount-1  do
      for J:= 0 to colCount-1 do
        begin
          if query1.fieldvaules['no']=1 then
           cellscolor[i,j]:=clred;
           cells[i,j]:=query1.FieldValues['name'];                     
           qy_room.Next;
        end;
  end;

Answer 1

query1死循环了
没有 query1.next这句

Answer 2

是这样写的:
query1.First;
  while not query1.Eof   do   
  begin
   with stringaligngrid1 do
    for I :=0 to RowCount-1  do
      for J:= 0 to colCount-1 do
        begin
          if query1.fieldvaules['no']=1 then
           cellscolor[i,j]:=clred;
           cells[i,j]:=query1.FieldValues['name'];                     
           query1.Next;
        end;
  end;
问题不是出在query1 上,我的query1是随时create和free的,谢谢delphi_xizhousheng(西周生)再次帮忙!