Local obj:Object = TLink._value()
TLink.Remove()
TList.AddLast(obj)

TList.Sort(True, Sortiere)

Function Sortiere:Int(obj1:Object, obj2:Object)
	'Return -1 wenn obj1 'größer' obj2
	'Return 0 wenn obj1 'gleich' obj2
	'Return 1 wenn obj2 'größer' obj1
	
	Local eins:TMeinObjekt = TMeinObjekt(obj1)
	Local zwei:TMeinObjekt = TMeinObjekt(obj2)
	
	If eins.isActive Then Return - 1 'eins ist aktiv, -1 zurückgeben (so wirds allerdings 'nach vorne' sortiert, wenn du nicht aufpasst!)
	If zwei.isActive Then Return 1 'zwei ist aktiv, 1 zurückgeben (s.o.)
	
	Return 0 'beide sind inaktiv - also sind sie 'gleich' -> 0 zurückgeben.
End Function

SuperStrict

Type TTest
	
	Field z:Int

	Global list:TList = New TList
	
	Function Create(_z:Int)
		Local t:TTest = New TTest
		t.z = _z
		TTest.list.AddLast(t)
	End Function
	
	Function Show()
		For Local t:TTest = EachIn TTest.list
			Print(t.z)
		Next
		Print("")
		Print("---")
		Print("")
	End Function
	
	'* Compare-Methode für dieses Objekt anders definieren!
	Method Compare:Int(withObject:Object)
		Return Self.z - TTest(withObject).z
	End Method

End Type


'* Erstellen:
For Local i:Int = 0 To 10
	TTest.Create(Rand(1, 100))
Next

'* Unsortiert:
TTest.Show()

'* Sortieren:
TTest.list.Sort()

TTest.Show()