 |
kkkkkk
資深會員
註冊日期: Dec 2003
來 自:
文章數量: 291 |
|
aa:=amount;
bp:=barpos; hh:=h; LL:=L;
p:=if(c>o,1,0);
for i=datacount-1 downto 1 do begin
if aa[i]<aa[i+1] or (aa[i]>aa[i+1] and p[i]=p[i+1]) then begin
aa[i]:=aa[i+1]; p[i]:=p[i+1];
end;
if aa[i]>aa[i+1] and p[i]<>p[i+1] then break;
end;
x:=bp[i],linethick0;
drawicon(barpos=x,h,10),align0,pxup20;
HHH:hh[x],linethick0;
LLL:LL[x],linethick0;
|
|
向版主報告此篇 |  |
|
2007-04-11 00:48 |
|
|
|  |
 |
kkkkkk
資深會員
註冊日期: Dec 2003
來 自:
文章數量: 291 |
|
for i=datacount-1 downto 1 do begin ->
for i=sysparam(1)-1 downto 1 do begin
|
|
向版主報告此篇 |  |
|
2007-04-11 02:29 |
|
|
|  |
 |
kkkkkk
資深會員
註冊日期: Dec 2003
來 自:
文章數量: 291 |
|
抱歉.. 用功不足,是程式編程邏輯錯誤......
先試個從最後ㄧ天算起的看看
aa:=v;
bp:=barpos; hh:=h; LL:=L;
p:=if(c>=o,1,0);
q:=p[datacount];
//q:=p[sysparam(1)];
for i=datacount-1 downto 1 do begin
//for i=sysparam(1)-1 downto 1 do begin
if aa[i]<=aa[i+1] then aa[i]:=aa[i+1];
if aa[i]>aa[i+1] and p[i]=q then aa[i]:=aa[i];
if aa[i]>aa[i+1] and p[i]<>q then break;
end;
x:=bp[i],linethick0;
drawicon(barpos=x,h,10),align0,pxup20;
高:hh[x],linethick0;
低:LL[x],linethick0;
|
| 最後由 kkkkkk 在 2007-04-11 07:37 編輯 |
向版主報告此篇 |  |
|
2007-04-11 05:37 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|