hehe,我已基本解决了这个问题。首先,如soundbug所说,
我使用了adoquery.disablecontrols,这样速度可以提高不少,但也需要3秒多种。代码如下:
with adoquery do
begin
...
DisableControls;
Open;
for I:=0 to RecordCount-1 do
begin
......
Next;
end;
end;
但我还是不满足,结果实际读时,我采取如下方法:
with adoquery do
begin
...;
Open;
for I:=0 to RecordSet.RecordCount-1 do
begin
......
RecordSet.MoveNext;
end;
end;