主题：tenterprice函数问题

 这个代码本身没问题的。从这个代码无法看出你说的取不到价格的情况的。

你既然怀疑这个函数返回有问题。我建议你直接在里面加DEBUGFILE输出。

if TBUYHOLDINGEX('','',1)>0 then begin
    DEBUGFILE('D:\test.txt','上次开仓价为:%.3f',tenterprice);
   if C>tenterprice+jia*mindiff then
       tbuy(1,1,mkt);
      
   if C<tenterprice-sun*mindiff then
       tsell(1,0,mkt);
      
   if C>tenterprice+ying*mindiff then
       tsell(1,0,mkt);       
end

然后对照  监控记录 和这个函数返回值的记录。  

就是遇到这个问题才用各种控制，不然也不用这么麻烦。

麻烦了。

 目前测试了下。函数取值也是需要时间，并且你这里还是市价所以一个很短暂的没有成交的时间内返回值会是0.

所以

1.初始开仓使用限价。这样tenterprice能确保不会是0

2.还用限价。但是在使用tenterprice之前 让程序短暂的sleep下。

 1.我本地目前测试，只要稍微sleep下。tenterprice就不会返回0，而是更新出一个有效的价格。

2.如果非要while。 在每个使用tenterprice的地方 加一句，这样可以规避使用市价时候造成的短暂的tenterprice为0的情况：

   WHILE tenterprice=0 do ;