SuperStrict


Type TTestType
	Field Punkte:Int
	
	Method Compare:Int( O:Object )
		Local Test:TTestType = TTestType( O )			' Von Object nach TTestType casten
		If Self.Punkte = Test.Punkte Then Return 0		' Gleiche Punktzahl -> 0
		If Self.Punkte > Test.Punkte Then Return -1		' Andere Punktzahl ist kleiner als die eigene -> -1
		If Self.Punkte < Test.Punkte Then Return 1		' Andere Punktzahl ist größer als die eigene -> 1
	End Method
End Type



Local TestList:TList = CreateList()
Local Test:TTestType

For Local i:Int = 0 To 9
	Test = New TTestType
	Test.Punkte = i
	Print Test.Punkte
	TestList.AddLast( Test )
Next

Print "Jetzt sortieren."


TestList.Sort( True, compareFunc )		' compareFunc zum vergleichen nutzen
TestList.Sort()							' Compare von TTestType nutzen


For Test = EachIn TestList
	Print Test.Punkte
Next


Function compareFunc:Int( O1:Object, O2:Object )
	Local Test1:TTestType = TTestType( O1 )
	Local Test2:TTestType = TTestType( O2 )
	Return Test2.Punkte - Test1.Punkte
End Function