写excel文件的问题

Question

是大约10兆大小的dbf文件。每次都存到一定位置就停了，什么反应都没有。

Answer 1

好象是挺占资源的我的想法：
1、Application.procemessage ;
2、写入一定数量的数据后，刷新数据集。我的问题是，速度挺慢的 ，大概7-8千条记录，要30分钟。

Answer 2

function RefreshQuery(query:TADOQuery;SetFocus:boolean=false):boolean;
var place : TBook;
begin
    result := true;
    if not setfocus then
      begin
        query.filter := '';
        query.filtered := false;
        query.close;
        try
          query.open;
        except
          result := false;
        end;
        exit;
      end;    place := nil;
    try
    if ((query.recordcount>1) and query.BookValid(place)) then
      place := query.GetBook;
    query.close;
    query.open;
    if query.recordcount>1 then
      begin
        try
        query.GotoBook(place);
        finally
        query.FreeBook(place);
        end;
      end;
    except
      result := false;
    end;
end;