i:=1;
VARIABLE:kfc[]=0;

for i=datacount downto datacount-20 DO
    BEGIN
    if close>open THEN
       BEGIN
       kfc[i]:=close;
       i:=i+1;
       END;
    else
       BEGIN
       kfc[i]:=open;
       i:=i+1;
       END;
    END;

提示kfc数组越界操作

金字塔数组使用的高级编程技巧

http://www.weistock.com/bbs/dispbbs.asp?BoardID=10&ID=30380&replyID=&skin=1

希望您能仔细研究一下这个帖子。

数组在使用之前一定要初始化，对于序列模式，使用之前是需要置数组大小的，如果你不知道数组有多大，可以先初始化一个空数组，但是使用时一定要检查数组的大小，必要时使用SETUBOUND函数重置数组的大小。

还有，从代码中看出您的编程逻辑比较紊乱，应该您目前还分不清楚序列模式和逐K线模式的区别。

建议新手金字塔客户，若之前无分析家，飞狐等编程经验的用户，不用去考虑序列模式，直接从逐K线模式来编写你的策略系统。

如果你希望了解这2种模式的区别，建议你仔细看看

深度理解金字塔公式系统的工作机理

http://www.weistock.com/bbs/dispbbs.asp?boardid=10&Id=29594

你自己连需求都没有让我们搞清楚，怎么帮你？

另外，给你的连接上已经说的清楚，你能否花几天时间来消化一下呢？