我用的是stringgrid连接数据库！关于提高性能的问题

Question

我有上万条的记录由于实际需要需要用到stringgrid控件！然而每次往里面添加纪录的时候都非常慢！
例如：
StringGrid1.Cells[1,i]:=ADOQuery1.FieldByName('aa').AsString;
。

有什么更好的其他办法可以提升速度呢？请高人指点！

Answer 1

让记录在StringGrid中分页显示在Uses中加入： ADOInt 
 
//首先设定PageSize，取出PageCount
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADoquery1.Recordset.PageSize :=spinedit1.Value;
  Edit1.Text := IntToStr(ADoquery1.Recordset.PageCount);
  ShowData(spinedit2.Value);
end; 
 
//然后将AbsolutePage的数据乾坤大挪移到StringGrid1中 
procedure TForm1.ShowData(page:integer);
var
  iRow, iCol, iCount : Integer;
  rs : ADOInt.Recordset;
begin
  ADoquery1.Recordset.AbsolutePage:=Page;
  Currpage:=page;  
  iRow := 0;
  iCol := 1;
  stringgrid1.Cells[iCol, iRow] := 'FixedCol1';
  Inc(iCol);
  stringgrid1.Cells[iCol, iRow] := 'FixedCol2';
  Inc(iRow);
  Dec(iCol);
  rs := adoquery1.Recordset;
  for iCount := 1 to SpinEdit1.Value do 
  begin
    stringgrid1.Cells[iCol, iRow] := rs.Fields.Get_Item('FieldName1').Value;
    Inc(iCol);
    stringgrid1.Cells[iCol, iRow] := rs.Fields.Get_Item('FieldName1').Value;
    Inc(iRow);
    Dec(iCol);
    rs.MoveNext;
  end;
   
//上一页 
procedure TForm1.Button2Click(Sender: TObject);
begin
  If (CurrPage)<>1 then
    ShowData(CurrPage-1);
end;
 
//下一页
procedure TForm1.Button3Click(Sender: TObject);
begin
  If CurrPage<>ADoquery1.Recordset.PageCount then
    ShowData(CurrPage+1);
end;