name:='自选股';
nm:=stkcount(name);//自选股中的品种数量
VARIABLE:X[nm]:=0;
for i=1 to nm do
begin
hlabel:= stkfromblk(name,i);
X[i]:=STKINDI(hlabel,'KDJ.K',0,6,0);
end
当然你也可以定义一个字符串数组进行遍历也可以。
[PEL] 复制代码
nm:=3;
VARIABLE:Y[nm]:=('RB00','AG00','AU00');//数组中品种个数必须和nm相等
VARIABLE:X[nm]:=0;
for i=1 to nm do
begin
hlabel:= Y[I];
X[i]:=STKINDI(hlabel,'KDJ.K',0,6,0);
end