以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  数组  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=151751)

--  作者:林华强
--  发布时间:2017/4/17 15:14:32
--  数组
Dim d,i \'创建一个变量
\'创建Array外部对象,将对象实例置变量d中
Set d = CreateObject("Stock.Array")
\'创建完Array对象后往其内部插入两个数据
d.AddBack(3.25)
d.AddBack(4.33)
d.AddBack(2.02)
d.AddBack(2.02)
\'依次显示数组对象数据
For i = 0 To d.count-1
MsgBox d.getat(i)
Next
Call d.Remove(0, 2.02)
For i = 0 To d.count-1
MsgBox d.getat(i)
Next
这样运行后,为什么d数组没有把2.02移除,Remove这个算法无效,这是为什么?

--  作者:王锋
--  发布时间:2017/4/17 16:31:36
--  

可能是浮点数问题,导致内部的库运行有点异常,目前已经修正该问题。

建议您自行在代码中处理这个逻辑。 参考 RemoveAt函数


--  作者:林华强
--  发布时间:2017/4/17 16:38:32
--  
我换成整数,这个Remove算法还是不能移除我指定的数值
--  作者:王锋
--  发布时间:2017/4/17 19:22:39
--  

下个版本会修正,你暂时可以考虑自行在FOR循环中实现你的这个需求