中秋节快乐!!! 特发【板块KDJ】
if inblock('工程建筑')=1 THEN BEGIN M:='工程建筑,';
版块H:=STKINDI('991002','涨幅引用.Ch');
版块L:=STKINDI('991002','涨幅引用.Cl');
版块O:=STKINDI('991002','涨幅引用.CO');
版块V:=STKINDI('991002','涨幅引用.Cv');
版块C:=STKINDI('991002','涨幅引用.CC');
版块涨幅:=STKINDI('991002','涨幅引用.A')*100;end;
if inblock('新能源')=1 THEN BEGIN M:='新能源,';
版块H:=STKINDI('993585','涨幅引用.Ch');
版块L:=STKINDI('993585','涨幅引用.Cl');
版块O:=STKINDI('993585','涨幅引用.CO');
版块V:=STKINDI('993585','涨幅引用.Cv');
版块C:=STKINDI('993585','涨幅引用.CC');
版块涨幅:=STKINDI('993585','涨幅引用.A')*100;end;
if inblock('电力')=1 THEN BEGIN M:='电力,';
版块H:=STKINDI('991003','涨幅引用.Ch');
版块L:=STKINDI('991003','涨幅引用.Cl');
版块O:=STKINDI('991003','涨幅引用.CO');
版块V:=STKINDI('991003','涨幅引用.Cv');
版块C:=STKINDI('991003','涨幅引用.CC');
版块涨幅:=STKINDI('991003','涨幅引用.A')*100;end;
if inblock('电子信息')=1 THEN BEGIN M:='电子信息,';
版块H:=STKINDI('991006','涨幅引用.Ch');
版块L:=STKINDI('991006','涨幅引用.Cl');
版块O:=STKINDI('991006','涨幅引用.CO');
版块V:=STKINDI('991006','涨幅引用.Cv');
版块C:=STKINDI('991006','涨幅引用.CC');
版块涨幅:=STKINDI('991006','涨幅引用.A')*100;end;
if inblock('房地产')=1 THEN BEGIN M:='房地产,';
版块H:=STKINDI('991007','涨幅引用.Ch');
版块L:=STKINDI('991007','涨幅引用.Cl');
版块O:=STKINDI('991007','涨幅引用.CO');
版块V:=STKINDI('991007','涨幅引用.Cv');
版块C:=STKINDI('991007','涨幅引用.CC');
版块涨幅:=STKINDI('991007','涨幅引用.A')*100;end;
if inblock('纺织服装')=1 THEN BEGIN M:='纺织服装,';
版块H:=STKINDI('991008','涨幅引用.Ch');
版块L:=STKINDI('991008','涨幅引用.Cl');
版块O:=STKINDI('991008','涨幅引用.CO');
版块V:=STKINDI('991008','涨幅引用.Cv');
版块C:=STKINDI('991008','涨幅引用.CC');
版块涨幅:=STKINDI('991008','涨幅引用.A')*100;end;
if inblock('钢铁')=1 THEN BEGIN M:='钢铁,';
版块H:=STKINDI('991009','涨幅引用.Ch');
版块L:=STKINDI('991009','涨幅引用.Cl');
版块O:=STKINDI('991009','涨幅引用.CO');
版块V:=STKINDI('991009','涨幅引用.Cv');
版块C:=STKINDI('991009','涨幅引用.CC');
版块涨幅:=STKINDI('991009','涨幅引用.A')*100;end;
if inblock('供水供气')=1 THEN BEGIN M:='供水供气,';
版块H:=STKINDI('991010','涨幅引用.Ch');
版块L:=STKINDI('991010','涨幅引用.Cl');
版块O:=STKINDI('991010','涨幅引用.CO');
版块V:=STKINDI('991010','涨幅引用.Cv');
版块C:=STKINDI('991010','涨幅引用.CC');
版块涨幅:=STKINDI('991010','涨幅引用.A')*100;end;
if inblock('化工化纤')=1 THEN BEGIN M:='化工化纤,';
版块H:=STKINDI('991011','涨幅引用.Ch');
版块L:=STKINDI('991011','涨幅引用.Cl');
版块O:=STKINDI('991011','涨幅引用.CO');
版块V:=STKINDI('991011','涨幅引用.Cv');
版块C:=STKINDI('991011','涨幅引用.CC');
版块涨幅:=STKINDI('991011','涨幅引用.A')*100;end;
if inblock('稀缺zi源')=1 THEN BEGIN M:='稀缺zi源,';
版块H:=STKINDI('993745','涨幅引用.Ch');
版块L:=STKINDI('993745','涨幅引用.Cl');
版块O:=STKINDI('993745','涨幅引用.CO');
版块V:=STKINDI('993745','涨幅引用.Cv');
版块C:=STKINDI('993745','涨幅引用.CC');
版块涨幅:=STKINDI('993745','涨幅引用.A')*100;end;
if inblock('电器')=1 THEN BEGIN M:='电器,';
版块H:=STKINDI('991014','涨幅引用.Ch');
版块L:=STKINDI('991014','涨幅引用.Cl');
版块O:=STKINDI('991014','涨幅引用.CO');
版块V:=STKINDI('991014','涨幅引用.Cv');
版块C:=STKINDI('991014','涨幅引用.CC');
版块涨幅:=STKINDI('991014','涨幅引用.A')*100;end;
if inblock('新材料')=1 THEN BEGIN M:='新材料,';
版块H:=STKINDI('993120','涨幅引用.Ch');
版块L:=STKINDI('993120','涨幅引用.Cl');
版块O:=STKINDI('993120','涨幅引用.CO');
版块V:=STKINDI('993120','涨幅引用.Cv');
版块C:=STKINDI('993120','涨幅引用.CC');
版块涨幅:=STKINDI('993120','涨幅引用.A')*100;end;
if inblock('交通设施')=1 THEN BEGIN M:='交通设施,';
版块H:=STKINDI('991016','涨幅引用.Ch');
版块L:=STKINDI('991016','涨幅引用.Cl');
版块O:=STKINDI('991016','涨幅引用.CO');
版块V:=STKINDI('991016','涨幅引用.Cv');
版块C:=STKINDI('991016','涨幅引用.CC');
版块涨幅:=STKINDI('991016','涨幅引用.A')*100;end;
if inblock('银hang类')=1 THEN BEGIN M:='银hang类,';
版块H:=STKINDI('991017','涨幅引用.Ch');
版块L:=STKINDI('991017','涨幅引用.Cl');
版块O:=STKINDI('991017','涨幅引用.CO');
版块V:=STKINDI('991017','涨幅引用.Cv');
版块C:=STKINDI('991017','涨幅引用.CC');
版块涨幅:=STKINDI('991017','涨幅引用.A')*100;end;
if inblock('旅游酒店')=1 THEN BEGIN M:='旅游酒店,';
版块H:=STKINDI('991018','涨幅引用.Ch');
版块L:=STKINDI('991018','涨幅引用.Cl');
版块O:=STKINDI('991018','涨幅引用.CO');
版块V:=STKINDI('991018','涨幅引用.Cv');
版块C:=STKINDI('991018','涨幅引用.CC');
版块涨幅:=STKINDI('991018','涨幅引用.A')*100;end;
if inblock('煤炭石油')=1 THEN BEGIN M:='煤炭石油,';
版块H:=STKINDI('991019','涨幅引用.Ch');
版块L:=STKINDI('991019','涨幅引用.Cl');
版块O:=STKINDI('991019','涨幅引用.CO');
版块V:=STKINDI('991019','涨幅引用.Cv');
版块C:=STKINDI('991019','涨幅引用.CC');
版块涨幅:=STKINDI('991019','涨幅引用.A')*100;end;
if inblock('酿酒食品')=1 THEN BEGIN M:='酿酒食品,';
版块H:=STKINDI('991020','涨幅引用.Ch');
版块L:=STKINDI('991020','涨幅引用.Cl');
版块O:=STKINDI('991020','涨幅引用.CO');
版块V:=STKINDI('991020','涨幅引用.Cv');
版块C:=STKINDI('991020','涨幅引用.CC');
版块涨幅:=STKINDI('991020','涨幅引用.A')*100;end;
if inblock('农林牧渔')=1 THEN BEGIN M:='农林牧渔,';
版块H:=STKINDI('991021','涨幅引用.Ch');
版块L:=STKINDI('991021','涨幅引用.Cl');
版块O:=STKINDI('991021','涨幅引用.CO');
版块V:=STKINDI('991021','涨幅引用.Cv');
版块C:=STKINDI('991021','涨幅引用.CC');
版块涨幅:=STKINDI('991021','涨幅引用.A')*100;end;
if inblock('商业连锁')=1 THEN BEGIN M:='商业连锁,';
版块H:=STKINDI('991023','涨幅引用.Ch');
版块L:=STKINDI('991023','涨幅引用.Cl');
版块O:=STKINDI('991023','涨幅引用.CO');
版块V:=STKINDI('991023','涨幅引用.Cv');
版块C:=STKINDI('991023','涨幅引用.CC');
版块涨幅:=STKINDI('991023','涨幅引用.A')*100;end;
if inblock('建材')=1 THEN BEGIN M:='建材,';
版块H:=STKINDI('991024','涨幅引用.Ch');
版块L:=STKINDI('991024','涨幅引用.Cl');
版块O:=STKINDI('991024','涨幅引用.CO');
版块V:=STKINDI('991024','涨幅引用.Cv');
版块C:=STKINDI('991024','涨幅引用.CC');
版块涨幅:=STKINDI('991024','涨幅引用.A')*100;end;
if inblock('其他行业')=1 THEN BEGIN M:='其他行业,';
版块H:=STKINDI('991025','涨幅引用.Ch');
版块L:=STKINDI('991025','涨幅引用.Cl');
版块O:=STKINDI('991025','涨幅引用.CO');
版块V:=STKINDI('991025','涨幅引用.Cv');
版块C:=STKINDI('991025','涨幅引用.CC');
版块涨幅:=STKINDI('991025','涨幅引用.A')*100;end;
if inblock('汽车类')=1 THEN BEGIN M:='汽车类,';
版块H:=STKINDI('991026','涨幅引用.Ch');
版块L:=STKINDI('991026','涨幅引用.Cl');
版块O:=STKINDI('991026','涨幅引用.CO');
版块V:=STKINDI('991026','涨幅引用.Cv');
版块C:=STKINDI('991026','涨幅引用.CC');
版块涨幅:=STKINDI('991026','涨幅引用.A')*100;end;
if inblock('机械')=1 THEN |