为什么不能不同品种不同开仓tgh手数？

103737 · 发表于 2021-11-23 13:51

请教,这里定义了不同品种的开仓数量，但开仓仍1手（应该有的品种很多手才是)。请问是哪里错了?谢谢

代码：
SS:=1;
IF STRNCMP(STKLABEL ,'AX' ,2 )=0 THEN BEGIN PL:='AX13'; SC:='AU34'; SS=18; END
IF STRNCMP(STKLABEL ,'AY' ,2 )=0 THEN BEGIN PL:='AY13'; SC:='AU34'; SS=18; END
IF STRNCMP(STKLABEL ,'AG' ,2 )=0 THEN BEGIN PL:='AG13'; SC:='AU30'; SS=12; END
IF STRNCMP(STKLABEL ,'AL' ,2 )=0 THEN BEGIN PL:='AL13'; SC:='AU31'; SS=5; END
IF STRNCMP(STKLABEL ,'AP' ,2 )=0 THEN BEGIN PL:='AP13'; SC:='AU34'; SS=7; END
IF STRNCMP(STKLABEL ,'AU' ,2 )=0 THEN BEGIN PL:='AU13'; SC:='AU30'; SS=4; END
IF STRNCMP(STKLABEL ,'B' ,1 )=0 THEN BEGIN PL:='B13'; SC:='AU34'; SS=22; END
IF STRNCMP(STKLABEL ,'BC' ,2 )=0 THEN BEGIN PL:='BC13'; SC:='AU31'; SS=3; END
IF STRNCMP(STKLABEL ,'BUX' ,3 )=0 THEN BEGIN PL:='BUX13'; SC:='AU33'; SS=18; END
IF STRNCMP(STKLABEL ,'BUY' ,3 )=0 THEN BEGIN PL:='BUY13'; SC:='AU33'; SS=18; END
IF STRNCMP(STKLABEL ,'C' ,1 )=0 THEN BEGIN PL:='C13'; SC:='AU34'; SS=49; END
IF STRNCMP(STKLABEL ,'CF' ,2 )=0 THEN BEGIN PL:='CF13'; SC:='AU34'; SS=11; END
IF STRNCMP(STKLABEL ,'CJ' ,2 )=0 THEN BEGIN PL:='CJ13'; SC:='AU34'; SS=6; END
IF STRNCMP(STKLABEL ,'CS' ,2 )=0 THEN BEGIN PL:='CS13'; SC:='AU34'; SS=32; END
IF STRNCMP(STKLABEL ,'CU' ,2 )=0 THEN BEGIN PL:='CU13'; SC:='AU31'; SS=3; END
IF STRNCMP(STKLABEL ,'CY' ,2 )=0 THEN BEGIN PL:='CY13'; SC:='AU30'; SS=9; END
IF STRNCMP(STKLABEL ,'EB' ,2 )=0 THEN BEGIN PL:='EB13'; SC:='AU33'; SS=13; END//笨乙烯
IF STRNCMP(STKLABEL ,'EG' ,2 )=0 THEN BEGIN PL:='EG13'; SC:='AU33'; SS=8; END//乙二醇
IF STRNCMP(STKLABEL ,'FG' ,2 )=0 THEN BEGIN PL:='FG13'; SC:='AU33'; SS=10; END
IF STRNCMP(STKLABEL ,'FU' ,2 )=0 THEN BEGIN PL:='FU13'; SC:='AU32'; SS=18; END
IF STRNCMP(STKLABEL ,'HC' ,2 )=0 THEN BEGIN PL:='HC13'; SC:='AU31'; SS=9; END
IF STRNCMP(STKLABEL ,'I' ,1 )=0 THEN BEGIN PL:='I13'; SC:='AU31'; SS=5; END
IF STRNCMP(STKLABEL ,'J' ,1 )=0 THEN BEGIN PL:='J13'; SC:='AU32'; SS=1; END
IF STRNCMP(STKLABEL ,'JD' ,2 )=0 THEN BEGIN PL:='JD13'; SC:='AU34'; SS=26; END
IF STRNCMP(STKLABEL ,'JM' ,2 )=0 THEN BEGIN PL:='JM13'; SC:='AU32'; SS=2; END
IF STRNCMP(STKLABEL ,'L' ,1 )=0 THEN BEGIN PL:='L13'; SC:='AU33'; SS=15; END
IF STRNCMP(STKLABEL ,'LH' ,2 )=0 THEN BEGIN PL:='LH13'; SC:='AU34'; SS=3; END//生猪
IF STRNCMP(STKLABEL ,'LU' ,2 )=0 THEN BEGIN PL:='LU13'; SC:='AU32'; SS=16; END//低硫燃油
IF STRNCMP(STKLABEL ,'M' ,1 )=0    THEN BEGIN PL:='M13'; SC:='AU35'; SS=35; END
IF STRNCMP(STKLABEL ,'MA' ,2 )=0 THEN BEGIN PL:='MA13'; SC:='AU33'; SS=13; END
IF STRNCMP(STKLABEL ,'NI' ,2 )=0 THEN BEGIN PL:='NI13'; SC:='AU31'; SS=5; END
IF STRNCMP(STKLABEL ,'NR' ,2 )=0 THEN BEGIN PL:='NR13'; SC:='AU33'; SS=5; END//20号胶
IF STRNCMP(STKLABEL ,'OI' ,2 )=0 THEN BEGIN PL:='OI13'; SC:='AU35'; SS=6; END
IF STRNCMP(STKLABEL ,'P' ,1 )=0 THEN BEGIN PL:='P13'; SC:='AU35'; SS=6; END
IF STRNCMP(STKLABEL ,'PB' ,2 )=0 THEN BEGIN PL:='PB13'; SC:='AU31'; SS=14; END
IF STRNCMP(STKLABEL ,'PF' ,2 )=0 THEN BEGIN PL:='PF13'; SC:='AU33'; SS=22; END//涤纶短纤
IF STRNCMP(STKLABEL ,'PG' ,2 )=0 THEN BEGIN PL:='PG13'; SC:='AU33'; SS=4; END
IF STRNCMP(STKLABEL ,'PK' ,2 )=0 THEN BEGIN PL:='PK13'; SC:='AU34'; SS=26; END//花生
IF STRNCMP(STKLABEL ,'PP' ,2 )=0 THEN BEGIN PL:='PP13'; SC:='AU33'; SS=16; END
IF STRNCMP(STKLABEL ,'RB' ,2 )=0 THEN BEGIN PL:='RB13'; SC:='AU31'; SS=10; END
IF STRNCMP(STKLABEL ,'RM' ,2 )=0 THEN BEGIN PL:='RM13'; SC:='AU35'; SS=26; END
IF STRNCMP(STKLABEL ,'RU' ,2 )=0 THEN BEGIN PL:='RU13'; SC:='AU33'; SS=4; END
IF STRNCMP(STKLABEL ,'RR' ,2 )=0 THEN BEGIN PL:='RR13'; SC:='AU34'; SS=66; END//梗米
IF STRNCMP(STKLABEL ,'SA' ,2 )=0 THEN BEGIN PL:='SA13'; SC:='AU33'; SS=6; END//纯碱
IF STRNCMP(STKLABEL ,'SC' ,2 )=0 THEN BEGIN PL:='SC13'; SC:='AU32'; SS=1; END
IF STRNCMP(STKLABEL ,'SF' ,2 )=0 THEN BEGIN PL:='SF13'; SC:='AU31'; SS=7; END
IF STRNCMP(STKLABEL ,'SM' ,2 )=0 THEN BEGIN PL:='SM13'; SC:='AU31'; SS=9; END
IF STRNCMP(STKLABEL ,'SN' ,2 )=0 THEN BEGIN PL:='SN13'; SC:='AU31'; SS=1; END
IF STRNCMP(STKLABEL ,'SP' ,2 )=0 THEN BEGIN PL:='SP13'; SC:='AU33'; SS=16; END
IF STRNCMP(STKLABEL ,'SRX' ,3 )=0 THEN BEGIN PL:='SRX13'; SC:='AU34'; SS=23; END
IF STRNCMP(STKLABEL ,'SRY' ,3 )=0 THEN BEGIN PL:='SRY13'; SC:='AU34'; SS=23; END
IF STRNCMP(STKLABEL ,'SS' ,2 )=0 THEN BEGIN PL:='SS13'; SC:='AU31'; SS=8; END
IF STRNCMP(STKLABEL ,'TA' ,2 )=0    THEN BEGIN PL:='TA13'; SC:='AU33'; SS=29; END
IF STRNCMP(STKLABEL ,'UR' ,2 )=0 THEN BEGIN PL:='UR13'; SC:='AU33'; SS=10; END
IF STRNCMP(STKLABEL ,'V' ,1 )=0 THEN BEGIN PL:='V13'; SC:='AU33'; SS=9; END
IF STRNCMP(STKLABEL ,'Y' ,1 )=0    THEN BEGIN PL:='Y13'; SC:='AU35'; SS=8; END
IF STRNCMP(STKLABEL ,'ZC' ,2 )=0 THEN BEGIN PL:='ZC13'; SC:='AU32'; SS=3; END
IF STRNCMP(STKLABEL ,'ZN' ,2 )=0 THEN BEGIN PL:='ZN13'; SC:='AU31'; SS=6; END

//(八)开多仓
   IF TBUYHOLDINGEX(ZH1,PZ1,1)=0 THEN BEGIN
        IF  开多条件  THEN BEGIN
IF TACCOUNT2(53,ZH1)=1  and TISREMAINEX( 1,ZH1 ,PZ1 )=0 and TISREMAINEX( 2,ZH1 ,PZ1 )=0 THEN BEGIN
TBUY( 1,SS,LMT,DYNAINFO2(20,PZ1)-HC*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT;//开多
   END
   END
   END

//(九)开空仓
IF TSELLHOLDINGEX(ZH1,PZ1,1)=0 THEN BEGIN
   IF  开空条件  THEN BEGIN
IF TACCOUNT2(53,ZH1)=1  and TISREMAINEX( 3,ZH1 ,PZ1 )=0 and TISREMAINEX( 4,ZH1 ,PZ1 )=0  THEN BEGIN
TBUYSHORT( 1,SS,LMT,DYNAINFO2(21,PZ1)+HC*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT;//开空
END
END
END

结果：

资深技术02 · 发表于 2021-11-23 13:57

SS:=18;

赋值是:=不是=

103737 · 发表于 2021-11-23 14:07

资深技术02 发表于 2021-11-23 13:57
SS:=18;

赋值是:=不是=

赋值是:=也是只开1手

资深技术02 · 发表于 2021-11-23 14:11

本地测试么有问题啊
加我qq远程看把
2857926939

为什么不能不同品种不同开仓tgh手数？

本帖子中包含更多资源

本帖子中包含更多资源

		自动登录	找回密码
密码