共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：数组 中的large small显示不出来
1楼
寻找点金石 发表于：2014/3/24 22:37:49为了测试数组
kpt:OPENMINUTES(time),LINETHICK0;
VARIABLE:vh[270]=0;
vh[kpt]:=vol;
tee:LARGE(vh,200,1),LINETHICK0;
teX:SMALL(vh,270,1),LINETHICK0;
最后最大tee 最小teX 显示均不正确，怎么回事？
2楼
寻找点金石 发表于：2014/3/24 22:57:15其实我是想求出60秒内最大现手，用数组的方式
syms:=time0-timetot0(dynainfo(207)),LINETHICK0; //本分钟内剩余秒数
kms:60-syms,LINETHICK0; //本分钟内已开盘的秒数
...
dss:=max(现手,qxs1); //一秒钟内的现手取大值
VARIABLE:ds[60]=0;
ds[kms]:=dss;
zdss:large(ds,60,1),LINETHICK0;
求不出60秒内的最大现手？
3楼
寻找点金石 发表于：2014/3/25 6:50:20已解决，用for 循环 不过要用到writeinifile 把一分钟内的现手写进去 再用for读出来
4楼
jinzhe 发表于：2014/3/25 8:54:27
你现在越来越厉害了
解决代码贴一下哈
5楼
寻找点金石 发表于：2014/3/25 12:28:12//60秒内的最大手数
qms:=WRITEINIFILE('d:\qms.ini','qms','qms',GETINIFILE('d:\ms.ini','ms','ms'));
ms:=WRITEINIFILE('d:\ms.ini','ms','ms',kms);
dss:=max(现手,qxs1);
if kms<>GETINIFILE('d:\qms.ini','qms','qms') then begin
WRITEINIFILE('d:\ds.ini','ds','ds'&NUMTOSTR(kms+1,0),dss);
end
VARIABLE:ds[60]=0;
for i=1 to 60 do begin
ds[i]:=GETINIFILE('d:\ds.ini','ds','ds'&NUMTOSTR(i,0));
end
zxss:small(ss,60,1),LINETHICK0;
zdss:large(ds,60,1),LINETHICK0;
qzd:=WRITEINIFILE('d:\zdxs.ini','qzdx','qzdx',GETINIFILE('d:\zdxs.ini','zdxs','zdxs'));
if 现手>0 then WRITEINIFILE('d:\zdxs.ini','zdxs','zdxs',zdss);
qzdx:=getINIFILE('d:\zdxs.ini','qzdx','qzdx');
if zdss<>qzdx then debugfile('d:\zdss.txt',NUMTOSTR(最新价,1)&' '&NUMTOSTR(zdss,0),0);//输出60秒内最大现手
共5 条记录, 每页显示 10 条, 页签:
[1]