用uniSQL组件执行不返回行的操作，而不要用query

if not UniMainModule.qryTypeCount.IsEmpty then

    begin

      UniMainModule.TypeCountSQL.Execute;    //清空分类表，

//当用delete进行删除数据表记录时，用Query控件会提示SQL statement doesn't return rows，因为delete不能返回结果。所以用UniSQL控件解决问题。直接用上面这句可以正常运行，用下面这样就不行，不知道为什么？

with UniMainModule.TypeCountSQL do

      begin

        Close;

        SQL.Clear;

        SQL.Add('DELETE FROM typecount');

        Execute;  //提示非法操作，会话中断，程序直接运行不起来。

      end;  

    end;

 

  //while  UniMainModule.qryTypeCount.RecordCount <> 0 do

    {with UniMainModule.qryTypeCount do

      begin

        Close;

        SQL.Clear;

        SQL.Add('DELETE FROM typecount');

        //Execute;

        //Open;

      end;  }

    end;