Fehler in Beispiel für SortStructuredArray

[NicTheQuick]

Hi Mädels, besonders André!

Das hier ist das Beispiel für [c]SortStructuredArray()[/c] in der Hilfe:

Code: Alles auswählen

Structure Animal
  Name$
  Speed.l
EndStructure
  
Dim Animals.Animal(2)
  
Animals(0)\Name$ = "Tiger"
Animals(0)\Speed = 10
  
Animals(1)\Name$ = "Jaguar"
Animals(1)\Speed = 40
  
Animals(2)\Name$ = "Zebre"
Animals(2)\Speed = 30
  
  ; Sortiert das Array nach dem Feld 'Name$', welches ein String ist
  ;
SortStructuredArray(Animals(), 0, OffsetOf(Animal\Name$), #PB_Sort_String)
  
For k=0 To 2
  Debug Animals(k)\Name$+" - Speed: "+Str(Animals(k)\Speed)
Next
  
  ; Sortiert das Array nach dem Feld 'Speed', welches ein Long ist
  ;
SortStructuredArray(Animals(), 0, OffsetOf(Animal\Speed), #PB_Sort_Long)
  
For k=0 To 2
  Debug Animals(k)\Name$+" - Speed: "+Str(Animals(k)\Speed)
Next

Mich irritert allerdings, dass beim ersten Aufruf von [c]SortStructuredArray()[/c] die Sortier-Option auf 0 steht. Denn die Optionen 0 und 1 sind nur für Zahlen gedacht. Da hier aber nach Strings sortiert wird, müsste dort demnach Option 2 oder 3 stehen.
Lustigerweise scheint das Beispiel zwar zu funktionieren, aber es ist sicherlich nicht so programmiert wie es eigentlich sein sollte.

[ts-soft]

>> 0: Sortiert das Array in aufsteigender Richtung (kleine Zahlen zuerst)

sortiert auch Strings, Klein- und Großschreibung wird unterschieden.
also Beispiel korrekt, Erläuterung in der Hilfe nicht ausführlich genug

gruß
Thomas

[Andre]

Ich kümmere mich mal drum, d.h. frage vor einer Änderung erstmal noch Fred.