可以进行循环优化嘛
var
adoRs: _Recordset;
begin
adoRs := ADOQuery.Recordset;
while True do
begin
///////////////////////////////////////////////////////////////////////////
// 下面开始循环优化,如果你不嫌麻烦的话还可以多写几个
if adoRs.EOF then break;
……// 增加一条记录到 Excel 中
adoRs.MoveNext;
if adoRs.EOF then break;
……// 增加一条记录到 Excel 中
adoRs.MoveNext;
if adoRs.EOF then break;
……// 增加一条记录到 Excel 中
adoRs.MoveNext;
if adoRs.EOF then break;
……// 增加一条记录到 Excel 中
adoRs.MoveNext;
if adoRs.EOF then break;
……// 增加一条记录到 Excel 中
adoRs.MoveNext;
///////////////////////////////////////////////////////////////////////////
// 这样你原来要执行 1000 次的循环现在只要执行原来的 1/5 次了
// 这就是我的循环优化
end;
end;