Sort List by more than 1 field?

Type player

	Global what_order:Int

	Field playernum:Int
	Field name:String
	Field distance:Float
	Field distrounded:Int
	Field strokes:Int
	Field inhole:Int
	Field donetee:Int
	
		
	Method Compare:Int(Other:Object)
		If other=Null Return 0
		
		If what_order=0 '	this means (for use) 'order bades on VALUE field
			If distance = player(other).distance Return 0
			If distance < player(Other).distance Then Return 1 Else Return -1
		Else	
                        'order based on strokes field
			If strokes = player(other).strokes Return 0
			If strokes > player(other).strokes Then Return 1 Else Return -1		
		End If
	End Method

End Type

Strict
Type TMyClass
	Field One:String
	Field Two:String
	
	'This should return 1 if the withobject is smaller, 0 if both are the same and -1 if it is bigger:
	Method Compare:Int(withObject:Object)
		
		'If the class is compared with a different one:
		If TMyClass(withObject) = Null Then Return Super.Compare(withObject)
		
		'If the class is compared with a 2 fields sortable class:
		Local Comparer:TMyClass = TMyClass(withObject)
		If Comparer.One < One Then Return 1
		If Comparer.One > One Then Return - 1
		If Comparer.Two > Two Then Return - 1
		If Comparer.Two < Two Then Return 1
		Return 0
	End Method
	
	'Just a simple debug ToString function:
	Method ToString:String()
		Return ("One = " + One + ", Two = " + Two)
	End Method
	
End Type


'We fill a list with random instances of the class, with random values on the fields one and two
Local List:TList = New TList
For Local i:Int = 0 To 40
	Local Class:TMyClass = New TMyClass
	Class.One = Chr(Rand(65, 67))
	Class.two = Chr(Rand(65, 80)) + Chr(Rand(65, 80)) + Chr(Rand(65, 80)) + Chr(Rand(65, 80))
	List.AddLast(Class)
Next


'We show the contents:
Print "Unsorted:"
For Local Class:TMyClass = EachIn List
	Print Class.Tostring()
Next

Print "Sorted:"
List.Sort()
For Local Class:TMyClass = EachIn List
	Print Class.Tostring()
Next

SortList list,True,CustomCompare

Function CustomCompare:Int( o1:Object, o2:Object )
	'Compare code here
End Function