主题：这个循环写法应该怎么写

原帖已经回复，去原帖看下我的回复。你说的这个已经涵盖在那个代码里面了。

 

t:=STRRIGHT(STKLABEL ,2);
z:=STRTRIMRIGHT(STKLABEL ,t );//截取出品种名称，如AL,RB

上面是取得当前品种是那个品种，是al还是rb

下面这部分是拼接合约代码的代码

从01拼接到12

for i=1 to 12 do

begin

if i<10 then temp:=STRCAT(z,'0'+NUMTOSTR(i,0)); else if then temp:=STRCAT(z,NUMTOSTR(i,0));//拼接品种代码名称

//使用temp的代码

end

t:=STRRIGHT(STKLABEL ,2);
z:=STRTRIMRIGHT(STKLABEL ,t );//截取出品种名称，如AL,RB

 

//n是从1到12.m也是1到12. 假设这2变量个是你比较之后取到的最大和次大合约对应的数值（1-12）。

 

if n<10 then k1code:=STRCAT(z,'0'+NUMTOSTR(n,0)); else if then k1code:=STRCAT(z,NUMTOSTR(n,0));//拼接品种代码名称

if m<10 then k2ode:=STRCAT(z,'0'+NUMTOSTR(m,0)); else if then k2code:=STRCAT(z,NUMTOSTR(m,0));//拼接品种代码名称

 

k1:callstock(k1code,vtclose,6,0);

k2:callstock(k2code,vtclose,6,0);//callstock参数你根据需求自己可以改下

我测试都正常啊， 你是不是改了什么。

代码都贴出来吧

补充好数据先。我设置了只在最后一个K计算和显示。历史上的每个K都计算会卡死。

VARIABLE:arry[12]:=0;
t:=STRRIGHT(STKLABEL ,2);
z:=STRTRIMRIGHT(STKLABEL ,t );//截取出品种名称，如AL,RB
temp:='';

if ISLASTBAR then begin //如果不加这一句，历史K都走一次循环，会非常卡。
FOR  i=1 to 12 do
begin
if i<10 then temp:=STRCAT(z,'0'+NUMTOSTR(i,0)); else if then temp:=STRCAT(z,NUMTOSTR(i,0));//拼接品种代码名称
openints:=CALLSTOCK(temp,vtOPENINT,6,0);//直接引用持仓量
if not(openints) then arry[i]:=0;else if then arry[i]:=openints;//如果取不到持仓量数据，直接写入0.
end

op1:=0;//最大持仓量合约
op2:=0;//最小持仓量合约

for j=1 to 12 do
begin
if HOD2(arry, 0, arry[j])=1 then op1:=j;
if HOD2(arry, 0, arry[j])=2 then op2:=j;
if op1*op2 <>0 then break;
end
end

 

if op1<10 and op1<>0 then temp2:=STRCAT(z,'0'+NUMTOSTR(op1,0)); else if then temp2:=STRCAT(z,NUMTOSTR(op1,0));
if op2<10 and op2<>0 then temp3:=STRCAT(z,'0'+NUMTOSTR(op2,0)); else if then temp3:=STRCAT(z,NUMTOSTR(op2,0));

k1:CALLSTOCK(temp2,vtCLOSE,6,0);//价格
k2:CALLSTOCK(temp3,vtCLOSE,6,0);

k1code:op1;//显示当前那个合约是最大持仓量的合约

k2code:op2;//显示当前那个合约是第二大持仓量的合约

看 12楼的回复。