主题：tenterprice函数问题

 会的。

while not(ABS(b1-b2)>2 ) do
begin
b1:=tenterprice;
if b1=b2 then
GOTO CHONG;
end

会一直跳转的。

 你用TENTERPRICE时候遇到什么问题了？没取到值吗？你这里的方式是不可取的，建议回到你最初的问题上来讨论。

此主题相关图片如下：temp.png

这个函数取值和这里的记录直接关联。此外就是成交和未成交取值时候会有差异。未成交就是委托价，成交就是成交价。

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

你既然怀疑这个函数返回有问题。我建议你直接在里面加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 ;