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函数好像不能正确执行,帮忙看看错字哪里?
是不是条件没满足啊? 你把条件先改的简单一点然后再去试试,上面代码应该是没问题的,你改成下面简单的C>O 试试先IF INBLOCK('自选股')=0 AND C>O THEN A:ADDTOBLOCK(STKLABEL,'自选股');
IF INBLOCK('自选股')=1 AND C<O THEN B:DELETEFROMBLOCK(STKLABEL,'自选股');