以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  明明有分号 提示缺少分号  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=49755)

--  作者:seemsgood
--  发布时间:2013/3/15 13:22:17
--  明明有分号 提示缺少分号
可能是由于什么原因导致的
--  作者:admin
--  发布时间:2013/3/15 13:23:55
--  
代码贴过来看看
--  作者:seemsgood
--  发布时间:2013/3/15 13:44:03
--  
DATAPERIODNUMBER:=DATATYPE;
vn:=DATACOUNT;
vh:=HIGH;
vl:=LOW;
variable: vallding[]=0,valldi[]=0;
   
//找出所有顶分型和底分型 
dingcount:=0;
dicount:=0;
for i=3 to vn do
begin
 ktype:=0; //判断是独立K还是分型 初始0
 
 if vh[i-1]>vh[i-2] && vh[i-1]>vh[i] && (vl[i-1]>=vl[i-2] || vl[i-1]>=vl[i]) then
  ktype:=1; /////该行提示少分号!!!
 if vl[i-1]<vl[i-2] && vl[i-1]<vl[i] && (vh[i-1]<=vh[i-2] || vh[i-1]<=vh[i])then
  ktype:=2;
 if vh[i-1]>vh[i-2] && vh[i-1]>vl[i] && vl[i-1]<vh[i-2] && vh[i-1]<vh[i] then
  ktype:=3;
 else
  ktype:=4;
 

--  作者:jinzhe
--  发布时间:2013/3/15 14:41:02
--  

  if vl[i-1]<vl[i-2] and vl[i-1]<vl[i] and (vh[i-1]<=vh[i-2] or vh[i-1]<=vh[i]) then
  ktype:=2;

[此贴子已经被作者于2013-3-15 14:41:14编辑过]

--  作者:jinzhe
--  发布时间:2013/3/15 14:41:45
--  
)和then之间少了一个空格。。。
--  作者:seemsgood
--  发布时间:2013/3/15 15:23:15
--  
。。。那他为啥提示上句缺分号呢
--  作者:admin
--  发布时间:2013/3/15 15:34:17
--  

语法解析上的问题,后面会尝试修正