软件名称：[B]龙头排序[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2011-04-10 00:15:41
软件简介:

龙头排序

BK:='A股板块';
YYGS:='龙头.龙头';
STKSUM:=STKCOUNT(BK);
DCOUNT:=DATACOUNT;
VARIABLE:DMSTR[STKSUM]='',VAR_PX[STKSUM]=0,VAR_INDI[STKSUM]=0;
FOR K=1 TO STKSUM DO BEGIN
DM:=STKFROMBLK(BK,K);
DMSTR[K]:=DM;
TEMP1:=STKINDI(DM,YYGS,0,5);
VAR_PX[K]:=TEMP1[DCOUNT];
VAR_INDI[K]:=TEMP1[DCOUNT];
END;
NUM1:=SORTPOS(VAR_INDI,1,1,STKSUM);
DM_MAX1:=VAR_INDI[1];
DM_MAX2:=VAR_INDI[2];
DM_MAX3:=VAR_INDI[3];
DM_MAX4:=VAR_INDI[4];
DM_MAX5:=VAR_INDI[5];
DM_MAX6:=VAR_INDI[6];
DM_MIN1:=VAR_INDI[STKSUM];
DM_MIN2:=VAR_INDI[STKSUM-1];
MAX1:=VAR_PX[DM_MAX1];
MAX2:=VAR_PX[DM_MAX2];
MAX3:=VAR_PX[DM_MAX3];
MAX4:=VAR_PX[DM_MAX4];
MAX5:=VAR_PX[DM_MAX5];
MAX6:=VAR_PX[DM_MAX6];
MIN1:=VAR_PX[DM_MIN1];
MIN2:=VAR_PX[DM_MIN2];
DRAWTEXTEX(ISLASTBAR,1,70,50,'前5名'),color1080FA;
DRAWTEXTEX(ISLASTBAR,1,70,250,'① '+STKNAMEEX(DMSTR[DM_MAX1])+':'+NUMTOSTR(MAX1,2)),colorFF;
DRAWTEXTEX(ISLASTBAR,1,70,400,'② '+STKNAMEEX(DMSTR[DM_MAX2])+':'+NUMTOSTR(MAX2,2)),colorFF;
DRAWTEXTEX(ISLASTBAR,1,70,550,'③ '+STKNAMEEX(DMSTR[DM_MAX3])+':'+NUMTOSTR(MAX3,2)),colorFF;
DRAWTEXTEX(ISLASTBAR,1,70,700,'④ '+STKNAMEEX(DMSTR[DM_MAX4])+':'+NUMTOSTR(MAX4,2)),colorFF;
DRAWTEXTEX(ISLASTBAR,1,70,850,'⑤ '+STKNAMEEX(DMSTR[DM_MAX5])+':'+NUMTOSTR(MAX5,2)),colorFF;
DRAWTEXTEX(ISLASTBAR,1,600,50,'后2名'),color1080FA;
DRAWTEXTEX(ISLASTBAR,1,600,250,'① '+STKNAMEEX(DMSTR[DM_MIN1])+':'+NUMTOSTR(MIN1,2)),colorFF00;
DRAWTEXTEX(ISLASTBAR,1,600,400,'② '+STKNAMEEX(DMSTR[DM_MIN2])+':'+NUMTOSTR(MIN2,2)),colorFF00;
 

[url=http://www.70822.com/soft/sort013/sort02/down-32559.html]龙头排序[/url]