主题：[技术指标]排序模板

以下内容为程序代码:

1 runmode:0;
2
3 filepath:='d:\\changes.txt';
4
5 bkname:='日盘连续';
6 stks:=stkcount(bkname);
7
8 variable:labels[stks]=0;
9 variable:changes[stks]=0;
10
11 for i=1 to stks do begin
12     code:=stkfromblk(bkname,i);
13     labels[i]:=strremove(code,0,2);
14     
15     if valid(callstock(labels[i],vtopen,6,-20))=1 then begin
16         changes[i]:=(callstock(labels[i],vtopen,6,0)-callstock(labels[i],vtopen,6,-20))/callstock(labels[i],vtopen,6,-20)*100;
17     end else begin
18         changes[i]:=0;
19     end
20 end
21
22 for i=1 to stks do begin
23     for j=1 to stks-i do begin
24         if changes[j]＜changes[j+1] then begin
25             t1:=changes[j];
26             changes[j]:=changes[j+1];
27             changes[j+1]:=t1;
28             
29             t2:=labels[j];
30             labels[j]:=labels[j+1];
31             labels[j+1]:=t2;
32         end
33     end
34 end
35
36 debugfile2(filepath,'----------'+numtostr(date,0)+'----------','',0);
37
38 for i=1 to stks do begin
39     debugfile2(filepath,labels[i]+' : '+numtostr(changes[i],2),'',0);
40 end