核心支持库的 取数组成员数是不是有错误了

银河世纪

取指定数组变量的全部成员数目，如果该变量不为数组，返回-1，因此本命令也可以用作检查指定变量是否为数组变量。本命令为初级命令。我判断他不是数组的时候结束 但是他直接跳过这个判断了

盲眼画师

结果数组        文本型                 0       
这一句本来就是数组
取数组成员数（）=-1是对不是数组的有效
不然你试试把0去掉  肯定能结束

盲眼画师

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	文本型

如果真 (取数组成员数 (a) ＝ -1)
结束 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 文本型<br /> <br /> .如果真 (取数组成员数 (a) ＝ -1)<br />     结束 ()

银河世纪

盲眼画师 发表于 2016-1-14 12:08
[e=4].版本 2

.子程序 _按钮1_被单击

没用     我知道  你按下去会结束吗？？？

银河世纪

盲眼画师 发表于 2016-1-14 12:08
[e=4].版本 2

.子程序 _按钮1_被单击

还有 我用的是5.41的  最新版

冯古屋

银河世纪 发表于 2016-1-14 12:13
没用     我知道  你按下去会结束吗？？？

我结束了呀

冯古屋

银河世纪 发表于 2016-1-14 12:13
还有 我用的是5.41的  最新版

我是最新版呀。而且还是正版呀

冯古屋

我觉得你可以把你的命令贴出来看看。是不是其他的问题。

狼啸天

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 a, 整数型

.如果真 (取数组成员数 (a) ＝ -1)
    调试输出 (取数组成员数 (a))
    结束 ()
.如果真结束

我的可以啊


补充内容 (2016-1-14 12:26):
刚下了5.41 测试 也可以啊

银河世纪

冯古屋 发表于 2016-1-14 12:19
我觉得你可以把你的命令贴出来看看。是不是其他的问题。

.版本 2

.子程序 _序列号检测, 逻辑型, 公开
.参数 序列号, 文本型, , ！！！
.参数 软件名称, 文本型, , 软件名称
.参数 地址, 文本型, 可空, cpu
.参数 数据库, 文本型, 可空
.局部变量 记录集, 整数型
.局部变量 外网IP, 文本型
.局部变量 软件是否可以使用, 文本型
.局部变量 结果数组, 文本型, , "0"

序列号 ＝ 编码_BASE64编码 (到字节集 (SQL.方法_数据加密 (序列号, “www.7080014.pw”)))
.如果真 (是否为空 (地址) ＝ 真)
    地址 ＝ “http://192.168.199.201/sql.php”
    数据库 ＝ “qdm210673506_db”
.如果真结束
集_数据库 ＝ 数据库
SQL.初始化 (地址, “cpu”)
' SQL.查询数据 (集_数据库, “我的软件”, “`软件是否可以使用`,`软件注册时间`”, “`软件名称` ='” ＋ 软件名称 ＋ “' and `序列号` ='” ＋ 序列号 ＋ “'”, 结果数组)

.判断开始 (取数组成员数 (结果数组) ＝ -1)
    时间 ＝ 到文本 (取现行时间 ())
    外网IP ＝ 网页_取外网IP ()
    SQL.插入记录 (集_数据库, “我的软件”, “`外网IP`,`序列号`,`软件名称`,`软件是否可以使用`,`软件注册时间`”, “'” ＋ 外网IP ＋ “','” ＋ 序列号 ＋ “','” ＋ 软件名称 ＋ “','是','” ＋ 时间 ＋ “'”)
    返回 (真)
.判断 (结果数组 [1] ＝ “是”)
    时间 ＝ 结果数组 [2]
    返回 (真)
.判断 (结果数组 [1] ＝ “否”)
    程序_出错退出 ()
    返回 (假)
.默认

.判断结束
返回 (假)