愁死人了,就一简单程序不运行。我是6个程序,各监控一个品种合约。下面是001号;请老师指导一下
if currenttime>=085600 and currenttime<085620 then begin
DEBUGFILE('D:\TEST1.TXT',stklabel&'当前时间为%.2f',DYNAINFO2(62, 'Rs07')*0.91);
DEBUGFILE('D:\TEST2.TXT',stklabel&'当前时间为%.2f',DYNAINFO2(62, 'Rs07'));
TBUY( 1 ,1, LMT,DYNAINFO2(62, 'Rs07')*0.91,0,'','RS07');TBUYSHORT(1,1, LMT,DYNAINFO2(62, 'Rs07')*1.09,0,'','RS07'); //菜籽07,
TBUY( 1 ,1, LMT,DYNAINFO2(62, 'Rs08')*0.91,0,'','RS08');TBUYSHORT(1,1, LMT,DYNAINFO2(62, 'Rs08')*1.09,0,'','RS08'); //菜籽08,
TBUY( 1 ,1, LMT,DYNAINFO2(62, 'Rs09')*0.92,0,'','RS09');TBUYSHORT(1,1, LMT,DYNAINFO2(62, 'Rs09')*1.08,0,'','RS09'); //菜籽09
TBUY( 1,2, LMT,DYNAINFO2(62, 'FB06')*0.96,0,'','FB06');TBUYSHORT(1,2, LMT,DYNAINFO2(62, 'FB06')*1.04,0,'','FB06');
TBUY( 1,2, LMT,DYNAINFO2(62, 'FB09')*0.96,0,'','FB09');TBUYSHORT(1,2, LMT,DYNAINFO2(62, 'FB09')*1.04,0,'','FB09');
TBUY( 1 ,2, LMT,DYNAINFO2(62, 'RI07')*0.94,0,'','RI07');TBUYSHORT(1,2, LMT,DYNAINFO2(62, 'RI07')*1.06,0,'','RI07');
END; |