Randomize, слегка поправил Ваш вариант:
Type sprite
Field order:Int
Method Compare:Int(otherObject:Object)
s:sprite = sprite(otherObject)
If Not s Then Return 1
Return order - s.order
End Method
End Type
' ----------------------------
SeedRnd(MilliSecs())
Local sprite_list:TList = New TList
For Local i:Int=1 To 100
s:sprite = New sprite
s.order = Rand(100)
ListAddLast sprite_list, s
Next
Local d:sprite
SortList(sprite_list)
For d = EachIn sprite_list
Print d.order
Next
Однако не подходит если есть несколько типов объектов, но все равно спасибо!
Жека, Огромное спасибо, это то что нужно!!!