[PEL] 复制代码 th:=tholdcount('');
str:=strtrimright( stklabel, '0123456789');
//双年份合约,豆一和白糖虽然取消双年份,但是金字塔为保证老用户策略的正常操作,所以保持不变。因此依旧需要区分。
if stricmp(str,'ay')=0 or stricmp(str,'buy')=0 or stricmp(str,'sry')=0 then begin
str:=strreplace(str , 'y','x' );
end
temp_str:='';//保存品种代码集合
j:=0;
for i=1 to th do
begin
hlabel:=tholdindexlabel(i,'');
strx:=strtrimright(hlabel,'0123456789');
if stricmp(hlabel,'ay')=0 or stricmp(hlabel,'buy')=0 or stricmp(hlabel,'sry')=0 then begin
strx:=strreplace(strx, 'y','x' );
end
strx:=strremove(strx,0,2);
if strfind(temp_str, ','&hlabel,1)=0 and stricmp(strx,str)=0 then
begin
//将不在代码集合中的品种添加到代码集合中。
temp_str:=strcat( temp_str, ','&hlabel );
j:=j+tbuyholdingex('',hlabel,2)+tsellholdingex('',hlabel,2);
end
end
show:j;//j的值就是累计的结果
|