主题：赋值不对

if date<>ref(date,1) then begin
closeflagD:=0;
end

if   tHOLDING=0   THEN BEGIN
tBUY(1,1,MKT);
closeflagD:=1;
END;

debugfile('c:\test.txt','开多信号 %.2f',closeflagD);

这段程序 ,执行开多后,closeflagD应该等于1

但我测试输出都为 0 老师,如有不对  ,怎么修改.