共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：数组月季诶，怎么办？
1楼
gongxiangban 发表于：2014/10/29 14:33:07variable:value[41]='null';
{中金所}
vaule[0]:='if00'; //股指
value[1]:='tf00';//国债
{郑州}
value[2]:='wh00';//强麦
value[3]:='pm00';//普麦
value[4]:='cf00';//棉花
value[5]:='sr00';//白糖
value[6]:='ta00';//PTA
value[7]:='oi00';//菜籽油
value[8]:='ri00';//早籼稻
value[9]:='me00';//甲醇
value[10]:='fg00';//玻璃
value[11]:='rs00';//油菜籽
value[12]:='rm00';//菜粕
value[13]:='tc00';//动力煤
value[14]:='jr00';//粳稻
value[15]:='lr00';//晚籼稻
value[16]:='sf00';//硅铁
value[17]:='sm00';//锰硅
{大连}
value[18]:='c00';//玉米
value[19]:='a00';//豆一
value[20]:='b00';//豆二
value[21]:='m00';//豆粕
value[22]:='y00';//豆油
value[23]:='p00';//棕榈油
value[24]:='jd00';//鸡蛋
value[25]:='bb00';//胶合板
value[26]:='fb00';//纤维板
value[27]:='l00';//聚乙烯
value[28]:='v00';//PVC
value[29]:='pp00';//聚丙烯
value[30]:='j00';//焦炭
value[31]:='jm00';//焦煤
value[32]:='i00';//铁矿石
{上海}
value[33]:='cu00';//铜
value[34]:='al00';//铝
value[35]:='zn00';//锌
value[36]:='pb00';//铅
value[37]:='au00';//黄金
value[38]:='ag00';//白银
value[39]:='rb00';//螺纹钢
value[40]:='wr00';//线材
//热轧卷板
//燃料油
//石油沥青
//天然橡胶
//value[1]='if00';
VARIABLE:stockValueTotal=0;
tt:=time0-timetot0(currenttime);
if ( tt<300 ) then begin
for i:=0 to 40 do
begin
if (strcmp(value[i],'null')=0 )=false then //这里显示数组越界。
2楼
jinzhe 发表于：2014/10/29 15:10:26贴全了，这么点代码只会报缺少END
3楼
gongxiangban 发表于：2014/10/29 15:17:25{VOL监视器
所有品种的主力合约
周期：1小时，日线
只在K线收出前5分钟发出提示框
初始报警条件：当前成交量，大于10根K线成交量均值3倍}
variable:value[41]='null';
{中金所}
vaule[0]:='if00'; //股指
value[1]:='tf00';//国债
{郑州}
value[2]:='wh00';//强麦
value[3]:='pm00';//普麦
value[4]:='cf00';//棉花
value[5]:='sr00';//白糖
value[6]:='ta00';//PTA
value[7]:='oi00';//菜籽油
value[8]:='ri00';//早籼稻
value[9]:='me00';//甲醇
value[10]:='fg00';//玻璃
value[11]:='rs00';//油菜籽
value[12]:='rm00';//菜粕
value[13]:='tc00';//动力煤
value[14]:='jr00';//粳稻
value[15]:='lr00';//晚籼稻
value[16]:='sf00';//硅铁
value[17]:='sm00';//锰硅
{大连}
value[18]:='c00';//玉米
value[19]:='a00';//豆一
value[20]:='b00';//豆二
value[21]:='m00';//豆粕
value[22]:='y00';//豆油
value[23]:='p00';//棕榈油
value[24]:='jd00';//鸡蛋
value[25]:='bb00';//胶合板
value[26]:='fb00';//纤维板
value[27]:='l00';//聚乙烯
value[28]:='v00';//PVC
value[29]:='pp00';//聚丙烯
value[30]:='j00';//焦炭
value[31]:='jm00';//焦煤
value[32]:='i00';//铁矿石
{上海}
value[33]:='cu00';//铜
value[34]:='al00';//铝
value[35]:='zn00';//锌
value[36]:='pb00';//铅
value[37]:='au00';//黄金
value[38]:='ag00';//白银
value[39]:='rb00';//螺纹钢
value[40]:='wr00';//线材
//热轧卷板
//燃料油
//石油沥青
//天然橡胶
//value[1]='if00';
VARIABLE:stockValueTotal=0;
tt:=time0-timetot0(currenttime);
if ( tt<300 ) then begin
for i:=0 to 40 do
begin
if (strcmp(value[i],'null')=0 )=false then
begin
{1小时}
for j:=1 to n do
begin
stockValueTotal:=stkindi(value[i],'vol',0,5,-j) + stockValueTotal ;
end;
stockMaValue:= stockValueTotal/n;
stockValue:= stkindi(value[i],'vol',0,5,-j);
if (stockValue>stockMaValue*3) then
begin
msgout(tt>300,value[i]);
end;
{1日}
for j:=1 to n do
begin
stockValueTotal:=stkindi(value[i],'vol',0,6,-j) + stockValueTotal ;
end;
stockMaValue:= stockValueTotal/n;
stockValue:= stkindi(value[i],'vol',0,6,-j);
if (stockValue>stockMaValue*3) then
begin
msgout(tt>300,value[i]);
end;
end;
end;
end;
4楼
gongxiangban 发表于：2014/10/29 15:17:47数组越界。
嗯，标题打错了，对不起。
5楼
jinzhe 发表于：2014/10/29 15:29:27N是多少？
6楼
gongxiangban 发表于：2014/10/29 16:27:45N缺省是10
此主题相关图片如下：未命名.jpg
此主题相关图片如下：未命名.jpg7楼
jinzhe 发表于：2014/10/29 16:37:51你数组下标弄错了
数组是从1-41
而不是从0-40
8楼
jinzhe 发表于：2014/10/29 16:38:20改了之后就是引用数量过多，还你引用写不对，不要用引用
9楼
gongxiangban 发表于：2014/10/30 13:45:39OK！
共9 条记录, 每页显示 10 条, 页签:
[1]