咨詢內容： 請教,這里定義了不同品種的開倉數量，但開倉仍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)=1and 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)=1and TISREMAINEX( 3,ZH1 ,PZ1 )=0 and TISREMAINEX( 4,ZH1 ,PZ1 )=0THEN BEGIN
TBUYSHORT( 1,SS,LMT,DYNAINFO2(21,PZ1)+HC*MINDIFF,0,ZH1,PZ1 ),ALLOWREPEAT;//開空
END
END
END


結果：

?

?來源: www.kzuj.com.cn

金字塔資深技術： SS:=18;

賦值是:=不是=??

技術交流：

資深技術02 發表于 2021-11-23 13:57
SS:=18;

賦值是:=不是=

賦值是:=也是只開1手

?

技術交流： 本地測試么有問題啊
加我qq遠程看把
2857926939