为什么排序的过程速度这样慢?有没有改善的办法?

Question

delphi编程
用adotable访问access数据库表目的:排序,并将记录号填充到字段中,
问题:完成这个过程速度太慢了
下面是我的代码,请各位高手看一下,问题出在哪儿,有没有改善的办法
I:Integer;
ADOTable1.Sort:='总分';
for I:=0 to ADOTable1.RecordCount-1
  begin
  ADOTable1.Edit;  
  ADOTable1.FieldByName(名次).AsInteger:=ADOTable1.RecNo;
  ADOTable1.Post;
  ADOTable1.Next;
  end;

Answer 1

打错了一行,不好意思
ADOTable1.Sort:='总分 DESC';//降序排列

Answer 2

ADOTable1.first;
while not ADOTable1.eof do
  begin
  ADOTable1.Edit;  
  ADOTable1.FieldByName(名次).AsInteger:=ADOTable1.RecNo;
  ADOTable1.Post;
  ADOTable1.Next;
  end;

Answer 3

每次都做Post当然慢了，用UpdateBatch处理吧。