kann es sein, das sich bei der Version 4.30 ein kleiner Fehler bei der Sortierung eine Liste eingeschlichen hat?
Ich habe das Hilfeprogramm etwas abgeändert um Tests zu machen. Entweder habe ich hier einen Bug festgestellt, oder ich bin einfach nur etwas blind.
Folgende Sortierung funktioniert:
Code: Alles auswählen
Structure Animal
Name$
Speed.l
EndStructure
NewList Animals.Animal()
For b = 1 To 9
b1 = 100-b
AddElement(Animals())
Animals()\Name$ = Str(b)
Animals()\Speed = b1
Next b
; Sortiert die Liste nach dem Feld 'Speed', welches ein Long ist
;
SortStructuredList(Animals(), #PB_Sort_Ascending, OffsetOf(Animal\Speed), #PB_Sort_Long)
ResetList(Animals())
ResetList(Animals())
NextElement(Animals())
For n=1 To ListSize(Animals())
Debug Animals()\Name$+" - Speed: "+Str(Animals()\Speed)
NextElement(Animals())
Next n
Code: Alles auswählen
SortStructuredList(Animals(), #PB_Sort_Ascending, OffsetOf(Animal\Speed), #PB_Sort_Long,1,5)