SortStructuredList & Start End Parameter funktioniert ni
Verfasst: 15.01.2009 18:07
Hallo,
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:
Wenn ich aber die optionalen Parameter Start,End in SortStructuredList nutzen will, sortiert PB nicht mehr?
Mache ich etwas falsch?
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)