代码优化分析一例[2]

              //判断对应表名的标志字段是否为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;