咨詢內容:
以下是我的部分代碼: VARIABLE:OPIBREAKFLAG:=0,LOCALOPIBREAKF:=0,ENTERPRICE:=0;IF BKVOL = 0 THENBEGIN IF CLOSE>OPEN&&MA1>MA2&&MA2>MA3&&OPIBREAKFLAG=1 THEN BEGIN
//BK(500000/CLOSE*UNIT*MARGIN);
ENTERPRICE:=CLOSE; END CLOSE>OPEN&&MA1>MA2&&MA2>MA3&&OPIBREAKFLAG=1,BK(500000/CLOSE*UNIT*MARGIN); ENDPRINTPRICE:ENTERPRICE;//-----------------------------------------------------------以上為代碼內容我的本意是想在買開的時候記錄當時的開倉價格;但是,我用上訴代碼執行的時候發現,開倉語句(第二條紅色代碼)不能被執行。如果我把順序調一下:
VARIABLE:OPIBREAKFLAG:=0,LOCALOPIBREAKF:=0,ENTERPRICE:=0;IF BKVOL = 0 THENBEGIN CLOSE>OPEN&&MA1>MA2&&MA2>MA3&&OPIBREAKFLAG=1,BK(500000/CLOSE*UNIT*MARGIN); IF CLOSE>OPEN&&MA1>MA2&&MA2>MA3&&OPIBREAKFLAG=1 THEN BEGIN
//BK(500000/CLOSE*UNIT*MARGIN);
ENTERPRICE:=CLOSE; END ENDPRINTPRICE:ENTERPRICE;//-----------------------------------------------------------以上為代碼內容我發現“ENTERPRICE:=CLOSE;”不能執行,圖上打印出來的值都是0
文華技術人員:IF BKVOL = 0 THEN BEGIN IF CLOSE>OPEN&&MA1>MA2&&MA2>MA3&&OPIBREAKFLAG=1 THEN 1,BK(500000/CLOSE*UNIT*MARGIN); ENTERPRICE:CLOSE;ENDELSE BEGINPRINTPRICE:ENTERPRICE;END