VARIABLE:BASE2 = 0;
DEBUGOUT('BASE2 = %.2F',BASE2);
IF THOLDING2 = 0 THEN
BEGIN
TBUY(CLOSE>OPEN,1,LMT,CLOSE,0,'802825');
TBUYSHORT(OPEN > CLOSE,1,LMT,CLOSE,0,'802825');
BASE2 = CLOSE;
DEBUGOUT('BASE2 = %.2F',BASE2);
END
为什么这段程序在后台逐K线运行,总是显示 BASE2 = 0?
1.后台不要用variable来记录全局变量,要用extgbdataset
2.BASE2 = CLOSE;这句是判断,不是赋值,赋值要加冒号BASE2 := CLOSE;
DEBUGOUT('BASE2 = %.2F',extgbdata('BASE2'));
IF THOLDING2 = 0 THEN
BEGIN
TBUY(CLOSE>OPEN,1,LMT,CLOSE,0,'802825');
TBUYSHORT(OPEN > CLOSE,1,LMT,CLOSE,0,'802825');
extgbdataset('BASE2',CLOSE);
DEBUGOUT('BASE2 = %.2F',extgbdata('BASE2'));
END
改成这段也一样!