【大智慧】板塊漲幅指標(biāo)公式
攻城獅 2016.01.12 22:58
{漲幅引用}
A:DYNAINFO(14);{板塊漲A}
x1:=15 ; x2:=180; x3:=350; x4:=520; x5:=680; x6:=850; y1:=9; y2:=120; y3:=250; y4:=380; y5:=510; y6:=640; y7:=770; y8:=900;
DRAWTEXTREL(5,9,’上證:’+NUMTOSTRN(STKINDI(‘1a0001′,’漲幅引用.A’)*100,2)+’%’), {colorb48c33}COLORWHITE;
DRAWTEXTREL(80,9,’深證:’+NUMTOSTRN(STKINDI(‘993124′,’漲幅引用.A’)*100,2)+’%’), {colorb48c33}COLORWHITE;
IF STKINDI(‘991036′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y2,’券 商: ‘ +NUMTOSTRN(STKINDI(‘991036′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991036′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y2,'券 商: ' +NUMTOSTRN(STKINDI('991036','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991028′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y3,’醫(yī) 藥: ‘ +NUMTOSTRN(STKINDI(‘991028′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991028′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y3,'醫(yī) 藥: ' +NUMTOSTRN(STKINDI('991028','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991017′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y4,’銀行類(lèi): ‘ +NUMTOSTRN(STKINDI(‘991017′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991017′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y4,'銀行類(lèi): ' +NUMTOSTRN(STKINDI('991017','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991007′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y5,’房地產(chǎn): ‘ +NUMTOSTRN(STKINDI(‘991007′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991007′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y5,'房地產(chǎn): ' +NUMTOSTRN(STKINDI('991007','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991034′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y6,’有色金屬: ‘ +NUMTOSTRN(STKINDI(‘991034′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991034′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y6,'有色金屬: ' +NUMTOSTRN(STKINDI('991034','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991021′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y7,’農(nóng)林牧漁: ‘ +NUMTOSTRN(STKINDI(‘991021′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991021′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y7,'農(nóng)林牧漁: ' +NUMTOSTRN(STKINDI('991021','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991035′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y8,’造紙印刷: ‘ +NUMTOSTRN(STKINDI(‘991035′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991035′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y8,'造紙印刷: ' +NUMTOSTRN(STKINDI('991035','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991018′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y1,’旅游酒店: ‘ +NUMTOSTRN(STKINDI(‘991018′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991018′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y1,'旅游酒店: ' +NUMTOSTRN(STKINDI('991018','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991023′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y2,’商業(yè)連鎖: ‘ +NUMTOSTRN(STKINDI(‘991023′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991023′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y2,'商業(yè)連鎖: ' +NUMTOSTRN(STKINDI('991023','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991020′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y3,’釀酒食品: ‘ +NUMTOSTRN(STKINDI(‘991020′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991020′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y3,'釀酒食品: ' +NUMTOSTRN(STKINDI('991020','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991008′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y4,’紡織服裝: ‘ +NUMTOSTRN(STKINDI(‘991008′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991008′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y4,'紡織服裝: ' +NUMTOSTRN(STKINDI('991008','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991006′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y5,’電子信息: ‘ +NUMTOSTRN(STKINDI(‘991006′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991006′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y5,'電子信息: ' +NUMTOSTRN(STKINDI('991006','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991004′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y6,’計(jì)算機(jī): ‘ +NUMTOSTRN(STKINDI(‘991004′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991004′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y6,'計(jì)算機(jī): ' +NUMTOSTRN(STKINDI('991004','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991026′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y7,’汽車(chē)類(lèi): ‘ +NUMTOSTRN(STKINDI(‘991026′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991026′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y7,'汽車(chē)類(lèi): ' +NUMTOSTRN(STKINDI('991026','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991014′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y8,’電 器: ‘ +NUMTOSTRN(STKINDI(‘991014′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991014′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y8,'電 器: ' +NUMTOSTRN(STKINDI('991014','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993745′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y1,’稀缺資源: ‘ +NUMTOSTRN(STKINDI(‘993745′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993745′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y1,'稀缺資源: ' +NUMTOSTRN(STKINDI('993745','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991019′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y2,’煤炭石油: ‘ +NUMTOSTRN(STKINDI(‘991019′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991019′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y2,'煤炭石油: ' +NUMTOSTRN(STKINDI('991019','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991009′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y3,’鋼 鐵: ‘ +NUMTOSTRN(STKINDI(‘991009′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991009′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y3,'鋼 鐵: ' +NUMTOSTRN(STKINDI('991009','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991024′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y4,’建 材: ‘ +NUMTOSTRN(STKINDI(‘991024′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991024′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y4,'建 材: ' +NUMTOSTRN(STKINDI('991024','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991027′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y5,’機(jī) 械: ‘ +NUMTOSTRN(STKINDI(‘991027′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991027′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y5,'機(jī) 械: ' +NUMTOSTRN(STKINDI('991027','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991011′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y6,’化工化纖: ‘ +NUMTOSTRN(STKINDI(‘991011′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991011′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y6,'化工化纖: ' +NUMTOSTRN(STKINDI('991011','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991002′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y7,’工程建筑: ‘ +NUMTOSTRN(STKINDI(‘991002′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991002′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y7,'工程建筑: ' +NUMTOSTRN(STKINDI('991002','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991037′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y8,’電力設(shè)備: ‘ +NUMTOSTRN(STKINDI(‘991037′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991037′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y8,'電力設(shè)備: ' +NUMTOSTRN(STKINDI('991037','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991032′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y1,’教育傳媒: ‘ +NUMTOSTRN(STKINDI(‘991032′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991032′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y1,'教育傳媒: ' +NUMTOSTRN(STKINDI('991032','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991010′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y2,’供水供氣: ‘ +NUMTOSTRN(STKINDI(‘991010′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991010′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y2,'供水供氣: ' +NUMTOSTRN(STKINDI('991010','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991033′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y3,’儀電儀表: ‘ +NUMTOSTRN(STKINDI(‘991033′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991033′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y3,'儀電儀表: ' +NUMTOSTRN(STKINDI('991033','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991136′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y4,’運(yùn)輸物流: ‘ +NUMTOSTRN(STKINDI(‘991136′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991136′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y4,'運(yùn)輸物流: ' +NUMTOSTRN(STKINDI('991136','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991016′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y5,’交通設(shè)施: ‘ +NUMTOSTRN(STKINDI(‘991016′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991016′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y5,'交通設(shè)施: ' +NUMTOSTRN(STKINDI('991016','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991031′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y6,’外 貿(mào): ‘ +NUMTOSTRN(STKINDI(‘991031′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991031′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y6,'外 貿(mào): ' +NUMTOSTRN(STKINDI('991031','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991003′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y7,’電 力: ‘ +NUMTOSTRN(STKINDI(‘991003′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991003′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y7,'電 力: ' +NUMTOSTRN(STKINDI('991003','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991135′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y8,’通 信: ‘ +NUMTOSTRN(STKINDI(‘991135′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991135′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y8,'通 信: ' +NUMTOSTRN(STKINDI('991135','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993685′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y1,’3 G: ‘ +NUMTOSTRN(STKINDI(‘993685′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993685′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y1,'3 G: ' +NUMTOSTRN(STKINDI('993685','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993695′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y2,’創(chuàng) 投: ‘ +NUMTOSTRN(STKINDI(‘993695′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993695′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y2,'創(chuàng) 投: ' +NUMTOSTRN(STKINDI('993695','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993095′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y3,’奧 運(yùn): ‘ +NUMTOSTRN(STKINDI(‘993095′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993095′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y3,'奧 運(yùn): ' +NUMTOSTRN(STKINDI('993095','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993585′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y4,’新能源: ‘ +NUMTOSTRN(STKINDI(‘993585′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993585′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y4,'新能源: ' +NUMTOSTRN(STKINDI('993585','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993091′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y5,’新上海: ‘ +NUMTOSTRN(STKINDI(‘993091′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993091′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y5,'新上海: ' +NUMTOSTRN(STKINDI('993091','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993128′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y6,’農(nóng)業(yè)龍頭: ‘ +NUMTOSTRN(STKINDI(‘993128′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993128′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y6,'農(nóng)業(yè)龍頭: ' +NUMTOSTRN(STKINDI('993128','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993645′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y7,’節(jié)能環(huán)保: ‘ +NUMTOSTRN(STKINDI(‘993645′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993645′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y7,'節(jié)能環(huán)保: ' +NUMTOSTRN(STKINDI('993645','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993665′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y8,’航天軍工: ‘ +NUMTOSTRN(STKINDI(‘993665′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993665′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y8,'航天軍工: ' +NUMTOSTRN(STKINDI('993665','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993795′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y1,’中字頭: ‘ +NUMTOSTRN(STKINDI(‘993795′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993795′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y1,'中字頭: ' +NUMTOSTRN(STKINDI('993795','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993139′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y2,’大 盤(pán): ‘ +NUMTOSTRN(STKINDI(‘993139′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993139′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y2,'大 盤(pán): ' +NUMTOSTRN(STKINDI('993139','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993140′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y3,’中 盤(pán): ‘ +NUMTOSTRN(STKINDI(‘993140′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993140′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y3,'中 盤(pán): ' +NUMTOSTRN(STKINDI('993140','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993141′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y4,’小 盤(pán): ‘ +NUMTOSTRN(STKINDI(‘993141′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993141′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y4,'小 盤(pán): ' +NUMTOSTRN(STKINDI('993141','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993142′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y5,’高 價(jià): ‘ +NUMTOSTRN(STKINDI(‘993142′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993142′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y5,'高 價(jià): ' +NUMTOSTRN(STKINDI('993142','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993143′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y6,’中 價(jià): ‘ +NUMTOSTRN(STKINDI(‘993143′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993143′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y6,'中 價(jià): ' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993144′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y7,’低 價(jià): ‘ +NUMTOSTRN(STKINDI(‘993144′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993144′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y7,'低 價(jià): ' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993386′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y8,’預(yù) 增: ‘ +NUMTOSTRN(STKINDI(‘993386′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993386′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y8,'預(yù) 增: ' +NUMTOSTRN(STKINDI('993386','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993385′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y3,’預(yù) 減: ‘ +NUMTOSTRN(STKINDI(‘993385′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993385′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y3,'預(yù) 減: ' +NUMTOSTRN(STKINDI('993385','漲幅引用.A')*100,2)+'%'),colorb48c33;end;{板塊漲B}
x1:=15; x2:=180; x3:=350; x4:=520; x5:=680; x6:=850; y1:=9; y2:=120; y3:=250; y4:=380; y5:=510; y6:=640; y7:=770; y8:=900;
DRAWTEXTREL(5,9,’上證:’+NUMTOSTRN(STKINDI(‘1a0001′,’漲幅引用.A’)*100,2)+’%’), {colorb48c33}COLORWHITE;
DRAWTEXTREL(80,9,’深證:’+NUMTOSTRN(STKINDI(‘993124′,’漲幅引用.A’)*100,2)+’%’), {colorb48c33}COLORWHITE;
IF STKINDI(‘993625′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y2,’QFII持股: ‘ +NUMTOSTRN(STKINDI(‘993625′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993625′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y2,'QFII持股: ' +NUMTOSTRN(STKINDI('993625','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993798′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y3,’煤化工: ‘ +NUMTOSTRN(STKINDI(‘993798′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993798′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y3,'煤化工: ' +NUMTOSTRN(STKINDI('993798','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991255′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y4,’保 險(xiǎn): ‘ +NUMTOSTRN(STKINDI(‘991255′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991255′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y4,'保 險(xiǎn): ' +NUMTOSTRN(STKINDI('991255','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993075′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y5,’次 新: ‘ +NUMTOSTRN(STKINDI(‘993075′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993075′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y5,'次 新: ' +NUMTOSTRN(STKINDI('993075','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993072′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y6,’S T: ‘ +NUMTOSTRN(STKINDI(‘993072′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993072′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y6,'S T: ' +NUMTOSTRN(STKINDI('993072','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993130′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y7,’基金重倉(cāng): ‘ +NUMTOSTRN(STKINDI(‘993130′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993130′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y7,'基金重倉(cāng): ' +NUMTOSTRN(STKINDI('993130','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993305′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x1,y8,’網(wǎng)絡(luò)游戲: ‘ +NUMTOSTRN(STKINDI(‘993305′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993305′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x1,y8,'網(wǎng)絡(luò)游戲: ' +NUMTOSTRN(STKINDI('993305','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993120′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y1,’新材料: ‘ +NUMTOSTRN(STKINDI(‘993120′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993120′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y1,'新材料: ' +NUMTOSTRN(STKINDI('993120','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘991025′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y2,’其他行業(yè): ‘ +NUMTOSTRN(STKINDI(‘991025′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘991025′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y2,'其他行業(yè): ' +NUMTOSTRN(STKINDI('991025','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993405′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y3,’社保重倉(cāng): ‘ +NUMTOSTRN(STKINDI(‘993405′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993405′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y3,'社保重倉(cāng): ' +NUMTOSTRN(STKINDI('993405','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993450′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y4,’成渝特區(qū): ‘ +NUMTOSTRN(STKINDI(‘993450′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993450′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y4,'成渝特區(qū): ' +NUMTOSTRN(STKINDI('993450','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993580′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y5,’CDM 項(xiàng)目: ‘ +NUMTOSTRN(STKINDI(‘993580′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993580′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y5,'CDM 項(xiàng)目: ' +NUMTOSTRN(STKINDI('993580','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993586′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y6,’鐵路基建: ‘ +NUMTOSTRN(STKINDI(‘993586′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993586′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y6,'鐵路基建: ' +NUMTOSTRN(STKINDI('993586','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993590′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y7,’送 轉(zhuǎn): ‘ +NUMTOSTRN(STKINDI(‘993590′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993590′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y7,'送 轉(zhuǎn): ' +NUMTOSTRN(STKINDI('993590','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993596′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x2,y8,’海峽西岸: ‘ +NUMTOSTRN(STKINDI(‘993596′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993596′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x2,y8,'海峽西岸: ' +NUMTOSTRN(STKINDI('993596','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993597′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y1,’智能電網(wǎng): ‘ +NUMTOSTRN(STKINDI(‘993597′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993597′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y1,'智能電網(wǎng): ' +NUMTOSTRN(STKINDI('993597','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993598′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y2,’圖們江: ‘ +NUMTOSTRN(STKINDI(‘993598′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993598′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y2,'圖們江: ' +NUMTOSTRN(STKINDI('993598','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993599′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y3,’濱海新區(qū): ‘ +NUMTOSTRN(STKINDI(‘993599′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993599′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y3,'濱海新區(qū): ' +NUMTOSTRN(STKINDI('993599','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993601′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y4,’I G C C: ‘ +NUMTOSTRN(STKINDI(‘993601′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993601′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y4,'I G C C: ' +NUMTOSTRN(STKINDI('993601','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993602′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y5,’深圳本地: ‘ +NUMTOSTRN(STKINDI(‘993602′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993602′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y5,'深圳本地: ' +NUMTOSTRN(STKINDI('993602','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993603′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y6,’黃河三角: ‘ +NUMTOSTRN(STKINDI(‘993603′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993603′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y6,'黃河三角: ' +NUMTOSTRN(STKINDI('993603','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993604′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y7,’橫琴新區(qū): ‘ +NUMTOSTRN(STKINDI(‘993604′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993604′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y7,'橫琴新區(qū): ' +NUMTOSTRN(STKINDI('993604','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993606′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y8,’珠江三角: ‘ +NUMTOSTRN(STKINDI(‘993606′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993607′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y1,’江蘇沿海: ‘ +NUMTOSTRN(STKINDI(‘993607′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993607′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y1,'江蘇沿海: ' +NUMTOSTRN(STKINDI('993607','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993608′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y2,’遼寧沿海: ‘ +NUMTOSTRN(STKINDI(‘993608′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993608′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y2,'遼寧沿海: ' +NUMTOSTRN(STKINDI('993608','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993609′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y3,’關(guān)中天水: ‘ +NUMTOSTRN(STKINDI(‘993609′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993609′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y3,'關(guān)中天水: ' +NUMTOSTRN(STKINDI('993609','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993646′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y4,’物聯(lián)網(wǎng): ‘ +NUMTOSTRN(STKINDI(‘993646′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993646′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y4,'物聯(lián)網(wǎng): ' +NUMTOSTRN(STKINDI('993646','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993686′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y6,’期 貨: ‘ +NUMTOSTRN(STKINDI(‘993686′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993686′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y6,'期 貨: ' +NUMTOSTRN(STKINDI('993686','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993690′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y7,’注資承諾: ‘ +NUMTOSTRN(STKINDI(‘993690′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993690′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y7,'注資承諾: ' +NUMTOSTRN(STKINDI('993690','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993710′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x3,y8,’低碳經(jīng)濟(jì): ‘ +NUMTOSTRN(STKINDI(‘993710′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993710′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x3,y8,'低碳經(jīng)濟(jì): ' +NUMTOSTRN(STKINDI('993710','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993730′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y1,’大訂單: ‘ +NUMTOSTRN(STKINDI(‘993730′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993730′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y1,'大訂單: ' +NUMTOSTRN(STKINDI('993730','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993765′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y2,’定向增發(fā): ‘ +NUMTOSTRN(STKINDI(‘993765′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993765′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y2,'定向增發(fā): ' +NUMTOSTRN(STKINDI('993765','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993825′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y2,’參股金融: ‘ +NUMTOSTRN(STKINDI(‘993825′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993825′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y2,'參股金融: ' +NUMTOSTRN(STKINDI('993825','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993925′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y3,’股權(quán)激勵(lì): ‘ +NUMTOSTRN(STKINDI(‘993925′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993925′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y3,'股權(quán)激勵(lì): ' +NUMTOSTRN(STKINDI('993925','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘994005′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y7,’S 板: ‘ +NUMTOSTRN(STKINDI(‘994005′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘994005′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y7,'S 板: ' +NUMTOSTRN(STKINDI('994005','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘994027′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y7,’稅收優(yōu)惠: ‘ +NUMTOSTRN(STKINDI(‘994027′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘994027′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y7,'稅收優(yōu)惠: ' +NUMTOSTRN(STKINDI('994027','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993885′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y8,’中 證100: ‘ +NUMTOSTRN(STKINDI(‘993885′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993885′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y8,'中 證100: ' +NUMTOSTRN(STKINDI('993885','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993606′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y4,’珠江三角: ‘ +NUMTOSTRN(STKINDI(‘993606′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993606′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y4,'珠江三角: ' +NUMTOSTRN(STKINDI('993606','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993612′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y5,’皖江區(qū)域: ‘ +NUMTOSTRN(STKINDI(‘993612′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993612′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y5,'皖江區(qū)域: ' +NUMTOSTRN(STKINDI('993612','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993613′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y6,’鄱陽(yáng)湖: ‘ +NUMTOSTRN(STKINDI(‘993613′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993613′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y6,'鄱陽(yáng)湖: ' +NUMTOSTRN(STKINDI('993613','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993614′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y7,’長(zhǎng)珠潭: ‘ +NUMTOSTRN(STKINDI(‘993614′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993614′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y7,'長(zhǎng)珠潭: ' +NUMTOSTRN(STKINDI('993614','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993616′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x5,y8,’武漢規(guī)劃: ‘ +NUMTOSTRN(STKINDI(‘993616′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993616′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x5,y8,'武漢規(guī)則: ' +NUMTOSTRN(STKINDI('993616','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993617′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y1,’海南開(kāi)發(fā): ‘ +NUMTOSTRN(STKINDI(‘993617′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993617′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y1,'海南開(kāi)發(fā): ' +NUMTOSTRN(STKINDI('993617','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993621′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y2,’陜甘寧: ‘ +NUMTOSTRN(STKINDI(‘993621′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993621′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y2,'陜甘寧: ' +NUMTOSTRN(STKINDI('993621','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993731′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y3,’分拆上市: ‘ +NUMTOSTRN(STKINDI(‘993731′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993731′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y3,'分拆上市: ' +NUMTOSTRN(STKINDI('993731','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993751′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x4,y5,’百元股: ‘ +NUMTOSTRN(STKINDI(‘993751′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993751′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x4,y5,'百元股: ' +NUMTOSTRN(STKINDI('993751','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
IF STKINDI(‘993801′,’漲幅引用.A’)*100>=0 THEN BEGIN DRAWTEXTREL(x6,y4,’黃金股: ‘ +NUMTOSTRN(STKINDI(‘993801′,’漲幅引用.A’)*100,2)+’%’),COLOR7711EE;end;
IF STKINDI(‘993801′,’漲幅引用.A’)*100<0 THEN BEGIN DRAWTEXTREL(x6,y4,'黃金股: ' +NUMTOSTRN(STKINDI('993801','漲幅引用.A')*100,2)+'%'),colorb48c33;end;
申明:本文為作者投稿或轉(zhuǎn)載,在概念股網(wǎng) http://www.guangshenggb.com/ 上發(fā)表,為其獨(dú)立觀點(diǎn)。不代表本網(wǎng)立場(chǎng),不代表本網(wǎng)贊同其觀點(diǎn),亦不對(duì)其真實(shí)性負(fù)責(zé),投資決策請(qǐng)建立在獨(dú)立思考之上。