龙听期货论坛's Archiver

龙听 发表于 2022-11-2 12:44

【RemoveLastZeros】

[code]
inputs:
        Array_[MaxSize]( numericarrayref ), NewLast(NumericRef);
       
for value1 = MaxSize downto 1 begin
        if 0 <> Array_[value1] then
                break;
end;

NewLast = value1;
array_setmaxindex(Array_, NewLast);[/code]

页: [1]