By - admin

[转载]【大智慧L2】板块涨幅排名(可排序 源码)_真实谎言888

[转载]【大贤明L2】板块涨幅次序(可排序 <wbr源码)” TITLE=”[转载]【大贤明L2】板块涨幅次序(可排序 源码)” />

[转载]【大贤明L2】板块涨幅次序(可排序 <wbr源码)” TITLE=”[转载]【大贤明L2】板块涨幅次序(可排序 源码)” />

率先开发第一点钟说法。,名字是:行市筹集
答:DYNANFO(14)

另外的说法:名字是:板块涨幅次序{唯一的是4个中国字。,大贤明是渣滓。
x1:=15 ; x2:=210; x3:=405; x4:=600; x5:=800;
x6:=850;  y1:=9; y2:=120;
y3:=250; y4:=380; y5:=510; y6:=640; y7:=770; y8:=900;
IF STKINDI(”1a0001”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(5,9,商正:”
+NUMTOSTRN(STKINDI(”1a0001”,”行市筹集.A”)*100,2)+”%”),黑色的;完毕的
IF STKINDI(”1a0001”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(5,9,商正:'' +NUMTOSTRN(STKINDI(''1a0001'',''行市筹集.A'')*100,2)+''%''),COLORGREEN;end;
IF STKINDI(”993124”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(108,9,深层证据:”
+NUMTOSTRN(STKINDI(”993124”,”行市筹集.A”)*100,2)+”%”),黑色的;完毕的
IF STKINDI(”993124”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(108,9,深层证据:'' +NUMTOSTRN(STKINDI(''993124'',''行市筹集.A'')*100,2)+''%''),COLORGREEN;end;
IF STKINDI(”991036”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x1,y2,”991036 券   
商:”
+NUMTOSTRN(STKINDI(”991036”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991036”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x1,y2,''991036 券   
商:”
+NUMTOSTRN(STKINDI(”991036”,”行市筹集.A”)*100,2)+”%”),colorb48c33;end;
IF STKINDI(”991028”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x1,y3,”991028 医   
药:”
+NUMTOSTRN(STKINDI(”991028”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991028”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x1,y3,''991028 医   
药:”
+NUMTOSTRN(STKINDI(”991028”,”行市筹集.A”)*100,2)+”%”),colorb48c33;end;
IF STKINDI(”991017”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x1,y4,”991017 银 行 类:”
+NUMTOSTRN(STKINDI(”991017”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991017”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x1,y4,''991017 银 行 类:'' +NUMTOSTRN(STKINDI(''991017'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991007”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x1,y5,”991007 房 地 产:”
+NUMTOSTRN(STKINDI(”991007”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991007”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x1,y5,''991007 房 地 产:'' +NUMTOSTRN(STKINDI(''991007'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991034”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x1,y6,”991034 黑色金属:”
+NUMTOSTRN(STKINDI(”991034”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991034”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x1,y6,''991034 黑色金属:'' +NUMTOSTRN(STKINDI(''991034'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991021”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x1,y7,”991021 农林牧渔业:”
+NUMTOSTRN(STKINDI(”991021”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991021”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x1,y7,''991021 农林牧渔业:'' +NUMTOSTRN(STKINDI(''991021'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991035”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x1,y8,”991035 造纸印花:”
+NUMTOSTRN(STKINDI(”991035”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991035”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x1,y8,''991035 造纸印花:'' +NUMTOSTRN(STKINDI(''991035'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;

IF STKINDI(”991018”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x2,y1,”991018 观光酒店:”
+NUMTOSTRN(STKINDI(”991018”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991018”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x2,y1,''991018 观光酒店:'' +NUMTOSTRN(STKINDI(''991018'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991023”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x2,y2,”991023 商联动装置:”
+NUMTOSTRN(STKINDI(”991023”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991023”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x2,y2,''991023 商联动装置:'' +NUMTOSTRN(STKINDI(''991023'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991020”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x2,y3,”991020 酿造食品:”
+NUMTOSTRN(STKINDI(”991020”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991020”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x2,y3,''991020 酿造食品:'' +NUMTOSTRN(STKINDI(''991020'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991008”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x2,y4,”991008 纺织帆装:”
+NUMTOSTRN(STKINDI(”991008”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991008”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x2,y4,''991008 纺织帆装:'' +NUMTOSTRN(STKINDI(''991008'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991006”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x2,y5,”991006 电子信息:”
+NUMTOSTRN(STKINDI(”991006”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991006”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x2,y5,''991006 电子信息:'' +NUMTOSTRN(STKINDI(''991006'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991004”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x2,y6,”991004 计 算 机:”
+NUMTOSTRN(STKINDI(”991004”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991004”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x2,y6,''991004 计 算 机:'' +NUMTOSTRN(STKINDI(''991004'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991026”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x2,y7,”991026 汽 车 类:”
+NUMTOSTRN(STKINDI(”991026”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991026”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x2,y7,''991026 汽 车 类:'' +NUMTOSTRN(STKINDI(''991026'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991014”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x2,y8,”991014 电   
器:”
+NUMTOSTRN(STKINDI(”991014”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991014”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x2,y8,''991014 电   器:”
+NUMTOSTRN(STKINDI(”991014”,”行市筹集.A”)*100,2)+”%”),colorb48c33;end;

IF STKINDI(”993745”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x3,y1,”993745 稀缺资源:”
+NUMTOSTRN(STKINDI(”993745”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”993745”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x3,y1,''993745 稀缺资源:'' +NUMTOSTRN(STKINDI(''993745'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991019”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x3,y2,”991019 煤炭石油:”
+NUMTOSTRN(STKINDI(”991019”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991019”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x3,y2,''991019 煤炭石油:'' +NUMTOSTRN(STKINDI(''991019'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991009”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x3,y3,”991009 钢   
铁:”
+NUMTOSTRN(STKINDI(”991009”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991009”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x3,y3,''991009 钢   
铁:”
+NUMTOSTRN(STKINDI(”991009”,”行市筹集.A”)*100,2)+”%”),colorb48c33;end;
IF STKINDI(”991024”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x3,y4,”991024 建   
材:”
+NUMTOSTRN(STKINDI(”991024”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991024”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x3,y4,''991024 建   
材:”
+NUMTOSTRN(STKINDI(”991024”,”行市筹集.A”)*100,2)+”%”),colorb48c33;end;
IF STKINDI(”991027”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x3,y5,”991027 机   
械:”
+NUMTOSTRN(STKINDI(”991027”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991027”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x3,y5,''991027 机   
械:”
+NUMTOSTRN(STKINDI(”991027”,”行市筹集.A”)*100,2)+”%”),colorb48c33;end;
IF STKINDI(”991011”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x3,y6,”991011 化学工业化纤:”
+NUMTOSTRN(STKINDI(”991011”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991011”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x3,y6,''991011 化学工业化纤:'' +NUMTOSTRN(STKINDI(''991011'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991002”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x3,y7,”991002 工程构造:”
+NUMTOSTRN(STKINDI(”991002”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991002”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x3,y7,''991002 工程构造:'' +NUMTOSTRN(STKINDI(''991002'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991037”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x3,y8,”991037 动力设备:”
+NUMTOSTRN(STKINDI(”991037”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991037”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x3,y8,''991037 动力设备:'' +NUMTOSTRN(STKINDI(''991037'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;

IF STKINDI(”991032”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x4,y1,”991032 教育学传媒:”
+NUMTOSTRN(STKINDI(”991032”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991032”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x4,y1,''991032 教育学传媒:'' +NUMTOSTRN(STKINDI(''991032'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991010”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x4,y2,”991010 雨水与气源:”
+NUMTOSTRN(STKINDI(”991010”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991010”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x4,y2,''991010 雨水与气源:'' +NUMTOSTRN(STKINDI(''991010'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991033”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x4,y3,”991033 仪电乐器:”
+NUMTOSTRN(STKINDI(”991033”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991033”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x4,y3,''991033 仪电乐器:'' +NUMTOSTRN(STKINDI(''991033'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991136”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x4,y4,”991136 转变逻辑学:”
+NUMTOSTRN(STKINDI(”991136”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991136”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x4,y4,''991136 转变逻辑学:'' +NUMTOSTRN(STKINDI(''991136'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991016”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x4,y5,”991016 交通设施:”
+NUMTOSTRN(STKINDI(”991016”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991016”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x4,y5,''991016 交通设施:'' +NUMTOSTRN(STKINDI(''991016'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”991031”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x4,y6,”991031 外   
贸:”
+NUMTOSTRN(STKINDI(”991031”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991031”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x4,y6,''991031 外   
贸:”
+NUMTOSTRN(STKINDI(”991031”,”行市筹集.A”)*100,2)+”%”),colorb48c33;end;
IF STKINDI(”991003”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x4,y7,”991003 电   
力:”
+NUMTOSTRN(STKINDI(”991003”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991003”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x4,y7,''991003 电   
力:”
+NUMTOSTRN(STKINDI(”991003”,”行市筹集.A”)*100,2)+”%”),colorb48c33;end;
IF STKINDI(”991135”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x4,y8,”991135 通   
信:”
+NUMTOSTRN(STKINDI(”991135”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”991135”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x4,y8,''991135 通   
信:”
+NUMTOSTRN(STKINDI(”991135”,”行市筹集.A”)*100,2)+”%”),colorb48c33;end;

IF STKINDI(”993685”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x5,y1,”993685  
   G:”
+NUMTOSTRN(STKINDI(”993685”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”993685”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x5,y1,''993685  
   G:”
+NUMTOSTRN(STKINDI(”993685”,”行市筹集.A”)*100,2)+”%”),colorb48c33;end;
IF STKINDI(”993695”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x5,y2,”993695 创   
投:”
+NUMTOSTRN(STKINDI(”993695”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”993695”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x5,y2,''993695 创   
投:”
+NUMTOSTRN(STKINDI(”993695”,”行市筹集.A”)*100,2)+”%”),colorb48c33;end;
IF STKINDI(”993095”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x5,y3,”993095 奥   
运:”
+NUMTOSTRN(STKINDI(”993095”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”993095”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x5,y3,''993095 奥   
运:”
+NUMTOSTRN(STKINDI(”993095”,”行市筹集.A”)*100,2)+”%”),colorb48c33;end;
IF STKINDI(”993585”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x5,y4,”993585 新 能 源:”
+NUMTOSTRN(STKINDI(”993585”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”993585”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x5,y4,''993585 新 能 源:'' +NUMTOSTRN(STKINDI(''993585'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”993091”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x5,y5,”993091 新 上 海:”
+NUMTOSTRN(STKINDI(”993091”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”993091”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x5,y5,''993091 新 上 海:'' +NUMTOSTRN(STKINDI(''993091'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”993128”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x5,y6,”993128 农耕首领:”
+NUMTOSTRN(STKINDI(”993128”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”993128”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x5,y6,''993128 农耕首领:'' +NUMTOSTRN(STKINDI(''993128'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”993645”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x5,y7,”993645 能量守恒环保:”
+NUMTOSTRN(STKINDI(”993645”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”993645”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x5,y7,''993645 能量守恒环保:'' +NUMTOSTRN(STKINDI(''993645'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;
IF STKINDI(”993665”,”行市筹集.A”)*100>=0 THEN BEGIN
DRAWTEXTREL(x5,y8,”993665 太空飞行军事工业:”
+NUMTOSTRN(STKINDI(”993665”,”行市筹集.A”)*100,2)+”%”),COLOR7711EE;end;
IF STKINDI(”993665”,”行市筹集.A”)*100<0 THEN BEGIN DRAWTEXTREL(x5,y8,''993665 太空飞行军事工业:'' +NUMTOSTRN(STKINDI(''993665'',''行市筹集.A'')*100,2)+''%''),colorb48c33;end;

发表评论

Your email address will not be published.
*
*