删不了要删的股票！ - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

WARNING_DISABLE:4;

//该模型运行于后台程序化模式

///////////////////////////////////////

IF CURRENTTIME<092900 AND CURRENTTIME>092800 THEN BEGIN

FOR I = 1 TO STKCOUNT('交易板块') DO

BEGIN

HLABEL:=STKFROMBLK('交易板块',I);

A:=DELETEFROMBLOCK(HLABEL,'交易板块');

END

//////////////

IF CURRENTTIME<093000 AND CURRENTTIME>092800 THEN BEGIN

FOR I = 1 TO THOLDCOUNT('') DO

BEGIN

HLABEL:= THOLDINDEXLABEL(I,'');

B:=ADDTOBLOCK(HLABEL,'交易板块');

END

//////////////

IF ((CURRENTTIME<113000 AND CURRENTTIME>093000) OR (CURRENTTIME<150000 AND CURRENTTIME>130000)) THEN BEGIN

FOR I = 1 TO THOLDCOUNT('') DO

BEGIN

HLABEL:= THOLDINDEXLABEL(I,'');

B:=ADDTOBLOCK(HLABEL,'交易板块');

END

//////////////

///////////////////////////

IF (CURRENTTIME<=223000 AND CURRENTTIME>093000) AND (THOLDCOUNT('')>=1) THEN BEGIN

FOR I = 1 TO THOLDCOUNT('') DO

BEGIN

HLABEL:= THOLDINDEXLABEL(I,'');

B1:=CALLSTOCK(HLABEL,vtCLOSE,6,-1);

B2:=CALLSTOCK(HLABEL,vtCLOSE,6,0);

B3:=CALLSTOCK(HLABEL,vtCLOSE,6,-2);

B4:=CALLSTOCK(HLABEL,vtCLOSE,6,-1);

IF (B2-B1)/B1>0.095 OR (B4-B3)/B3>0.095 THEN CONTINUE;

IF TBUYHOLDINGEX('',HLABEL,0 )>0 THEN BEGIN

TSELL(1,TBUYHOLDINGEX( '',HLABEL,0),MKT);

Z:=CURRENTTIME;

T:=DELETEFROMBLOCK(HLABEL,'交易板块');

END

//////////////

该段代码是不是有错误？为何交易板块中的股票会有删不了的股票？

主题：删不了要删的股票！