等级: 免费版
- 注册:
- 2022-5-23
- 曾用名:
|
楼主 |
发表于 2022-9-8 11:26
|
显示全部楼层
//每次轮询前先计算现有持仓盈利小于0
chicangnum:=THOLDCOUNT(''); //取得当前活动账户的总持仓品种数量
TEMP_STR:='';//保存品种代码集合
J:=0;
//循环取得持仓
FOR I = 1 TO chicangnum do
BEGIN
//获取第I个序号的账户持仓品种代码
HLABEL:= THOLDINDEXLABEL(I,'');
//判断当前代码集合中是否已经存在，不存在则进行统计。存在则不进入统计
if STRFIND(TEMP_STR,','&HLABEL,1)=0 then begin
TEMP_STR:=STRCAT(TEMP_STR,','&HLABEL); //将不在代码集合中的品种添加到代码集合中。
//计算该品种盈亏
if TBUYHOLDINGEX('',HLABEL,1)>0 and (C-TAVGENTERPRICEEX2('',HLABEL,0))<0 then begin
J:=J+1;
DEBUGFILE('E:\FEIDAOTEST.TXT',stklabel+'多单盈利幅度：%.3f',(C-TAVGENTERPRICEEX2('',HLABEL,0))/TAVGENTERPRICEEX2('',HLABEL,0)*100);
END
if TSELLHOLDINGEX('',HLABEL,1)>0 and (TAVGENTERPRICEEX2('',HLABEL,1)-C)<0 then begin
J:=J+1;
DEBUGFILE('E:\FEIDAOTEST.TXT',stklabel+'空单盈利幅度：%.3f',(TAVGENTERPRICEEX2('',HLABEL,1)-C)/TAVGENTERPRICEEX2('',HLABEL,1)*100);
END
END
END
lossnum:=J;
DEBUGFILE('E:\FEIDAOTEST.TXT',stklabel+'没利润保护品种数量：%.0f',lossnum);
|
|
发表于 2022-9-8 11:54
