delphi如何设置存储,delphi画表格

//使用RecordSet遍历57287条记录，只用了2012毫秒
  iTC:=GetTickCount;
  qryData.Recordset.MoveFirst;
  for i:=1 to qryData.Recordset.RecordCount do
  begin
    qryData.Recordset.MoveNext;
  end;

//使用 DataSet遍历，用了20249毫秒

  iTC:=GetTickCount;
  qryData.First;
  for i:=1 to qryData.RecordCount do
  begin
    qryData.Next;
  end;