金字塔软件问题提交-DELETEFROMBLOCK函数好像不能正确执行?金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  金字塔软件问题提交  (http://weistock.com/bbs/list.asp?boardid=2)
----  DELETEFROMBLOCK函数好像不能正确执行?  (http://weistock.com/bbs/dispbbs.asp?boardid=2&id=184971)

--  作者：并不陌生
--  发布时间：2021/3/31 14:17:26
--  DELETEFROMBLOCK函数好像不能正确执行?

if (全方向多 OR 全方向空) then
begin
已经存在:=INBLOCK(\'全方向多\');
if (已经存在=0) and 全方向多=1 then qx11:ADDTOBLOCK(mSTKLABEL,\'全方向多\'),NODRAW;
if (已经存在=1) and 全方向多=0 then qd11:DELETEFROMBLOCK(mSTKLABEL,\'全方向多\'),NODRAW;
已经存在:=INBLOCK(\'全方向空\');
if (已经存在=0) and 全方向空=1 then qx12:ADDTOBLOCK(mSTKLABEL,\'全方向空\'),NODRAW;
if (已经存在=1) and 全方向空=0 then qd12:DELETEFROMBLOCK(mSTKLABEL,\'全方向空\'),NODRAW;
end;

这段代码里想实现两个板块的自动维护,但是DELETEFROMBLOCK函数好像不能正确执行,帮忙看看错字哪里?

--  作者：banzhuan
--  发布时间：2021/3/31 14:39:54
--
是不是条件没满足啊？你把条件先改的简单一点然后再去试试，上面代码应该是没问题的，你改成下面简单的C>O 试试先
IF INBLOCK(\'自选股\')=0 AND C>O THEN A:ADDTOBLOCK(STKLABEL,\'自选股\');
IF INBLOCK(\'自选股\')=1 AND C<O THEN B:DELETEFROMBLOCK(STKLABEL,\'自选股\');

--  作者：并不陌生
--  发布时间：2021/3/31 15:46:59
--
确实是逻辑问题,多谢了