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

成功了，拿出来给大家分享，简单排序法：

RUNMODE:0;
bkname:='自动交易';
stks:=stkcount(bkname);

variable:stklabels[stks]=0;
variable:stktrades[stks]=0;
variable:stkposes[stks]=0;

for i=1 to stks do begin
code:=stkfromblk(bkname,i);
stklabels[i]:=strremove(code,0,2);
stktrades[i]:=stkindi(stklabels[i],'maxlb.liangbi',2,1,0);

if stktrades[i]>0 then
stktrades[i]:=stktrades[i];
else
stktrades[i]:=0;

stkposes[i]:=i;
end
EEE@;
for i:=1 to stks-1 do begin//做stks-1趟排序
NoSwap:=1;//置未排序的标志
for j:=i+1 to stks do begin
if stktrades[i]<stktrades[j] then begin//交换元素
t1:=stktrades[i];
stktrades[i]:=stktrades[j];
stktrades[j]:=t1;
t2:=stkposes[i];
stkposes[i]:=stkposes[j];
stkposes[j]:=t2;
NoSwap:=0;
end
If NoSwap=0 Then GOTO EEE;//本趟排序中未发生交换，则终止算法
end

end

for i=1 to stks do begin
if stricmp(stklabel,stklabels[stkposes[i]])=0 then
mypos:=i;
end
liangx:mypos;