在编程中经常会碰到程序执行效率低的问题，而有时候问题时出在循环体中。我们通过下面一个例子看在编程中要注意的问题。
在这个例子中的代码主要功能是定时检查数据库中的几个表是否发生了更新，如果有更新则自动刷新显示窗口中的对应数据网格。检查这几个表的数据是否更新是通过判断一个数据表中对应表名的一个标志字段值是否为1，如果为1，则表示该表已更新，数据网格需要刷新。
下面这段代码是优化前的代码（该代码在Timer控件的OnTime事件运行）：
try
//停止Timer控件的计时
Timeupdate.Enabled := False;
////读取记录刷新状态的表的数据
//ADOQryReadUpdate.Refresh;
//ADOQryReadUpdate.Requery();
ADOQryReadUpdate.Close;
ADOQryReadUpdate.Open;
ADOQryReadUpdate.First;
//通过循环判断那个表已经更新
with ADOQryReadUpdate do
while not Eof do
begin
bFlag := False;
//判断对应表名的标志字段是否为1，如果为1则刷新对应数据网格
if (FieldByName('flag').asinteger = 1)
and (FieldByName('channelid').AsInteger = LoginChannelID) then
begin
sName := FieldByName('name').asstring;
//刷新数据网格代码，这里略去了
……
if bFlag then
begin
//修改对应表标志值为0
Edit;
FieldByName('flag').asBoolean := False;
Post;
end;
Next;
end;
//恢复Timer控件为工作状态
Timeupdate.Enabled := True;
except
on E: Exception do
Application.MessageBox(
pchar(Err_TimeUpdateTimerFail + #13 + E.Message),
'Error',
MB_ICONERROR
);
end;
因为某些表的数据量比较大，所以在刷新网格的时候会有停顿，经过优化数据库结构，增加冗余字段，刷新速度已经获得提高，但还是存在停顿一到两秒的情况。因为一开始主要集中点在数据库上，所以没考虑到代码在执行效率上存在的问题。当在一次测试中发现，当没有任何数据网格需要刷新的情况下也要停顿一到两秒。我立刻想到这肯定是代码的执行效率有问题。经过分析，发现无论是否有数据更新，程序都要执行一次While循环，而这个While要遍历所有记录，当发现数据更新时，还要一个一个的修改标志值并保存回数据库。于是立刻让程序员做一下修改：
1、 只读标志值为1的记录，减少循环次数；当没有标志值为1的记录时，不执行循环和更新操作。
2、 在最后通过UPDATE语句更新所有标志值为1的记录
经过修改，程序的停顿现象消失了，刷新效率大大提高。