V4版 编译错误

efrog

编译以下程序时发生：
无法设别的字符串：function ,错误号C0010

1. //------------------------------------------------------------------------
   
2. // 简称: myRunnerWriteLog
   
3. // 名称: 写日志函数
   
4. // 类别: 用户函数
   
5. // 类型: 内建函数
   
6. // 输出: 布尔型
   
7. //------------------------------------------------------------------------
   
8. 
   
9. Params
   
10.         String  myLogFile; //日志文件名
    
11.         Numeric myClose;   //用于计算的当前价
    
12.         Numeric myEntrySign; //
    
13.         Numeric myExitSign;  //
    
14.         Numeric myContracts; //
    
15.         Numeric myPreEntryAvgPrice;
    
16.         Numeric myEnterAvgPrice;
    
17.         Numeric myExitAvgPrice;
    
18.         Numeric myEntryTimesOneBar;
    
19.         Numeric myProfitTotal;
    
20.         Numeric myProfitToday;
    
21.         Numeric myProfitLoss;
    
22.         String  myInfor(""); //附加信息
    
23. 
    
24. Vars
    
25.         String  TmpStr("");
    
26.         Numeric myIndex;
    
27.         String  TmpGVstr("GV ");
    
28. Begin
    
29.         If (BarStatus==0 or Left(myInfor,1)=="$")
    
30.         {        FileAppend(myLogFile,"");
    
31.                 FileAppend(myLogFile,SymbolName+" running at "+DateToString(CurrentDate)+" "+TimeToString(CurrentTime));
    
32.                 FileAppend(myLogFile,"  Bar Date------ Time---- 当前价 持仓 前持仓价 持仓价 平仓价 已委托 开信号 平信号 总盈亏额 当日盈亏 浮动盈亏 说明---------");
    
33.         }
    
34.         If (BarStatus==2)
    
35.         {        TmpStr = myNumToStr(CurrentBar,5)+"*"+DateToString(CurrentDate)+" "+TimeToString(CurrentTime); }
    
36.         Else
    
37.         {        TmpStr = myNumToStr(CurrentBar,5)+" "+DateToString(Date)+" "+TimeToString(Time);}
    
38.         TmpStr = TmpStr + myNumToStr(myClose,7)+ myNumToStr(myContracts,5) + myNumToStr(myPreEntryAvgPrice,9) + myNumToStr(myEnterAvgPrice,7) + myNumToStr(myExitAvgPrice,7);
    
39.         TmpStr = TmpStr + myNumToStr(myEntryTimesOneBar,7)+myNumToStr(myEntrySign,7)+myNumToStr(myExitSign,7);
    
40.         TmpStr = TmpStr + myNumToStr(myProfitTotal,9)+myNumToStr(myProfitToday,9)+myNumToStr(myProfitLoss,9);
    
41.         FileAppend(myLogFile,TmpStr+" "+myInfor);
    
42.         Return True;
    
43. End
    
44. 
    
45. //------------------------------------------------------------------------
    
46. // 编译版本        GS2004.06.12
    
47. // 用户版本        2009/10/07 22:29
    
48. // 版权所有       
    
49. // 更改声明        TradeBlazer Software保留对TradeBlazer平台
    
50. //                        每一版本的TrabeBlazer公式修改和重写的权利
    
51. //------------------------------------------------------------------------

复制代码

efrog

这个函数在V3版是编译通过的。另外myNumToStr用户函数已在V4版编译通过。
请版主查找V4的Bug。谢谢！

1. //------------------------------------------------------------------------
   
2. // 简称: myNumToStr
   
3. // 名称: 数值转换字符串
   
4. // 类别: 用户函数
   
5. // 类型: 用户函数
   
6. // 输出: 字符串
   
7. //------------------------------------------------------------------------
   
8. 
   
9. Params
   
10.         Numeric Num;         //原数据
    
11.         Numeric i(6);        //字符串长度,缺省3位
    
12. 
    
13. Vars
    
14. 
    
15. Begin
    
16.         If (i<=0 or i>10) Return Text(Num);
    
17.         Else Return Right("          "+Text(Num),i);
    
18. End
    
19. 
    
20. //------------------------------------------------------------------------
    
21. // 编译版本        GS2010.12.08
    
22. // 用户版本        2011/03/21 20:18
    
23. // 版权所有       
    
24. // 更改声明        TradeBlazer Software保留对TradeBlazer平台
    
25. //                        每一版本的TrabeBlazer公式修改和重写的权利
    
26. //------------------------------------------------------------------------

复制代码

efrog

问题找到了。
用fbk文件导入用户函数表面看是成功的，但编译会出现C0010的错误。
方法是在V4中新建同名函数，然后用Txt程序文本复制替换，再编译就能通过。