SortStructuredArray lost last value

[kwandjeen]

I get the impression that the SortStructuredArray command is bugged. After I throw it I lose the last value that goes to 0.
Do I make a mistake or is it a bug?
Cordially.

Code: Select all

Structure _tab
  position.i
  valeur.i
EndStructure

Global Dim MonTableau._tab(5)
For i=0 To ArraySize(MonTableau())-1
  MonTableau(i)\position = i+1
  MonTableau(i)\valeur = i+1
Next i

Debug "***********"
Debug ArraySize(MonTableau())
Debug "***********"
For k = 0 To ArraySize(MonTableau())-1
  Debug MonTableau(k)\valeur
Next

SortStructuredArray(MonTableau(), #PB_Sort_Ascending, OffsetOf(_tab\position), TypeOf(_tab\position))
Debug "***********"
For k = 0 To ArraySize(MonTableau())-1
  Debug MonTableau(k)\valeur
Next

[c4s]

ArraySize() is misleading as Dim array(5) actually creates an array with 6 elements ("0" included). So simply remove all "-1" and you'll see that SortStructuredArray() works as expected.

[kwandjeen]

Funny working

[kenmo]

Funny working

Agreed, it always tricks me.