市值排序完,取前10支股票

Var: Count(0);

Var: i(0);

Var: j(0);

Array: NumArray[](0),Valuex[](0);

If Close > 0 Then Count = Count + 1;

Array_SetMaxIndex(NumArray, Count);

NumArray[Count] = Close;

For i = 0 to Count

Begin

Valuex[i]=GetField("TotalMarketValue", "M");

    NumArray[i]=Valuex[i];

End;

Array_Sort(NumArray, 0, count, true); 

     For j=0 to 4

    Valuex[j] = NumArray[j];

outputfield1(Valuex[j],1);

input:tur1(1,"大於總市值(億)");

if value1>tur1 then

ret=1;

以上試圖寫看看!結果沒做出來!需要修改,請指正!