Comparer(Of T) Class

 

Provides a base class for implementations of the IComparer(Of T) generic interface.

Namespace:   System.Collections.Generic
Assembly:  mscorlib (in mscorlib.dll)

System.Object
  System.Collections.Generic.Comparer(Of T)

<SerializableAttribute>
Public MustInherit Class Comparer(Of T)
	Implements IComparer, IComparer(Of T)

Type Parameters

T

The type of objects to compare.

NameDescription
System_CAPS_protmethodComparer(Of T)()

Initializes a new instance of the Comparer(Of T) class.

NameDescription
System_CAPS_pubpropertySystem_CAPS_staticDefault

Returns a default sort order comparer for the type specified by the generic argument.

NameDescription
System_CAPS_pubmethodCompare(T, T)

When overridden in a derived class, performs a comparison of two objects of the same type and returns a value indicating whether one object is less than, equal to, or greater than the other.

System_CAPS_pubmethodSystem_CAPS_staticCreate(Comparison(Of T))

Creates a comparer by using the specified comparison.

System_CAPS_pubmethodEquals(Object)

Determines whether the specified object is equal to the current object.(Inherited from Object.)

System_CAPS_protmethodFinalize()

Allows an object to try to free resources and perform other cleanup operations before it is reclaimed by garbage collection.(Inherited from Object.)

System_CAPS_pubmethodGetHashCode()

Serves as the default hash function. (Inherited from Object.)

System_CAPS_pubmethodGetType()

Gets the Type of the current instance.(Inherited from Object.)

System_CAPS_protmethodMemberwiseClone()

Creates a shallow copy of the current Object.(Inherited from Object.)

System_CAPS_pubmethodToString()

Returns a string that represents the current object.(Inherited from Object.)

NameDescription
System_CAPS_pubinterfaceSystem_CAPS_privmethodIComparer.Compare(Object, Object)

Compares two objects and returns a value indicating whether one is less than, equal to, or greater than the other.

Derive from this class to provide a custom implementation of the IComparer(Of T) interface for use with collection classes such as the SortedList(Of TKey, TValue) and SortedDictionary(Of TKey, TValue) generic classes.

The difference between deriving from the Comparer(Of T) class and implementing the System.IComparable interface is as follows:

  • To specify how two objects should be compared by default, implement the System.IComparable interface in your class. This ensures that sort operations will use the default comparison code that you provided.

  • To define a comparer to use instead of the default comparer, derive from the Comparer(Of T) class. You can then use this comparer in sort operations that take a comparer as a parameter.

The object returned by the Default property uses the System.IComparable(Of T) generic interface (IComparable<T> in C#, IComparable(Of T) in Visual Basic) to compare two objects. If type T does not implement the System.IComparable(Of T) generic interface, the Default property returns a Comparer(Of T) that uses the System.IComparable interface.

Notes to Implementers:

Compare and EqualityComparer(Of T).Equals may behave differently in terms of culture-sensitivity and case-sensitivity.

For string comparisons, the StringComparer class is recommended over Comparer<String>. Properties of the StringComparer class return predefined instances that perform string comparisons with different combinations of culture-sensitivity and case-sensitivity. The case-sensitivity and culture-sensitivity are consistent among the members of the same StringComparer instance.

For more information on culture-specific comparisons, see the System.Globalization namespace and Globalizing and Localizing .NET Framework Applications.

The following example derives a class, BoxLengthFirst, from the Comparer(Of T) class. This comparer compares two objects of type Box. It sorts them first by length, then by height, and then by width. The Box class implements the IComparable(Of T) interface to control the default comparison between two Box objects. This default implementation sorts first by height, then by length, and then by width. The example shows the differences between the two comparisons by sorting a list of Box objects first by using the BoxLengthFirst comparer and then by using the default comparer.

Imports System.Collections.Generic

Friend Class Program
	Shared Sub Main(ByVal args() As String)
		Dim Boxes As New List(Of Box)()
		Boxes.Add(New Box(4, 20, 14))
		Boxes.Add(New Box(12, 12, 12))
		Boxes.Add(New Box(8, 20, 10))
		Boxes.Add(New Box(6, 10, 2))
		Boxes.Add(New Box(2, 8, 4))
		Boxes.Add(New Box(2, 6, 8))
		Boxes.Add(New Box(4, 12, 20))
		Boxes.Add(New Box(18, 10, 4))
		Boxes.Add(New Box(24, 4, 18))
		Boxes.Add(New Box(10, 4, 16))
		Boxes.Add(New Box(10, 2, 10))
		Boxes.Add(New Box(6, 18, 2))
		Boxes.Add(New Box(8, 12, 4))
		Boxes.Add(New Box(12, 10, 8))
		Boxes.Add(New Box(14, 6, 6))
		Boxes.Add(New Box(16, 6, 16))
		Boxes.Add(New Box(2, 8, 12))
		Boxes.Add(New Box(4, 24, 8))
		Boxes.Add(New Box(8, 6, 20))
		Boxes.Add(New Box(18, 18, 12))

		' Sort by an Comparer<T> implementation that sorts
		' first by the length.
		Boxes.Sort(New BoxLengthFirst())

		Console.WriteLine("H - L - W")
		Console.WriteLine("==========")
		For Each bx As Box In Boxes
            Console.WriteLine("{0}" & vbTab & "{1}" & vbTab & "{2}", _
                              bx.Height.ToString(), bx.Length.ToString(), _
                              bx.Width.ToString())
		Next bx

		Console.WriteLine()
		Console.WriteLine("H - L - W")
		Console.WriteLine("==========")

		' Get the default comparer that 
		' sorts first by the height.
		Dim defComp As Comparer(Of Box) = Comparer(Of Box).Default

		' Calling Boxes.Sort() with no parameter
		' is the same as calling Boxs.Sort(defComp)
		' because they are both using the default comparer.
		Boxes.Sort()

		For Each bx As Box In Boxes
            Console.WriteLine("{0}" & vbTab & "{1}" & vbTab & "{2}", _
                              bx.Height.ToString(), _
                              bx.Length.ToString(), _
                              bx.Width.ToString())
		Next bx


		' This explicit interface implementation
		' compares first by the length.
		' Returns -1 because the length of BoxA
		' is less than the length of BoxB.
		Dim LengthFirst As New BoxLengthFirst()

		Dim bc As Comparer(Of Box) = CType(LengthFirst, Comparer(Of Box))

		Dim BoxA As New Box(2, 6, 8)
		Dim BoxB As New Box(10, 12, 14)
		Dim x As Integer = LengthFirst.Compare(BoxA, BoxB)
		Console.WriteLine()
		Console.WriteLine(x.ToString())



	End Sub

End Class

Public Class BoxLengthFirst
	Inherits Comparer(Of Box)
	' Compares by Length, Height, and Width.
	Public Overrides Function Compare(ByVal x As Box, ByVal y As Box) As Integer
		If x.Length.CompareTo(y.Length) <> 0 Then
			Return x.Length.CompareTo(y.Length)
		ElseIf x.Height.CompareTo(y.Height) <> 0 Then
			Return x.Height.CompareTo(y.Height)
		ElseIf x.Width.CompareTo(y.Width) <> 0 Then
			Return x.Width.CompareTo(y.Width)
		Else
			Return 0
		End If
	End Function

End Class

' This class is not demonstrated in the Main method
' and is provided only to show how to implement
' the interface. It is recommended to derive
' from Comparer<T> instead of implementing IComparer<T>.
Public Class BoxComp
	Implements IComparer(Of Box)
	' Compares by Height, Length, and Width.
    Public Function Compare(ByVal x As Box, ByVal y As Box) As Integer Implements _
                                                IComparer(Of Box).Compare
        If x.Height.CompareTo(y.Height) <> 0 Then
            Return x.Height.CompareTo(y.Height)
        ElseIf x.Length.CompareTo(y.Length) <> 0 Then
            Return x.Length.CompareTo(y.Length)
        ElseIf x.Width.CompareTo(y.Width) <> 0 Then
            Return x.Width.CompareTo(y.Width)
        Else
            Return 0
        End If
    End Function
End Class

Public Class Box
	Implements IComparable(Of Box)

	Public Sub New(ByVal h As Integer, ByVal l As Integer, ByVal w As Integer)
		Me.Height = h
		Me.Length = l
		Me.Width = w
	End Sub
	Private privateHeight As Integer
	Public Property Height() As Integer
		Get
			Return privateHeight
		End Get
		Private Set(ByVal value As Integer)
			privateHeight = value
		End Set
	End Property
	Private privateLength As Integer
	Public Property Length() As Integer
		Get
			Return privateLength
		End Get
		Private Set(ByVal value As Integer)
			privateLength = value
		End Set
	End Property
	Private privateWidth As Integer
	Public Property Width() As Integer
		Get
			Return privateWidth
		End Get
		Private Set(ByVal value As Integer)
			privateWidth = value
		End Set
	End Property

    Public Function CompareTo(ByVal other As Box) As Integer _
                        Implements IComparable(Of Box).CompareTo
        ' Compares Height, Length, and Width.
        If Me.Height.CompareTo(other.Height) <> 0 Then
            Return Me.Height.CompareTo(other.Height)
        ElseIf Me.Length.CompareTo(other.Length) <> 0 Then
            Return Me.Length.CompareTo(other.Length)
        ElseIf Me.Width.CompareTo(other.Width) <> 0 Then
            Return Me.Width.CompareTo(other.Width)
        Else
            Return 0
        End If
    End Function

End Class

Universal Windows Platform
Available since 8
.NET Framework
Available since 2.0
Portable Class Library
Supported in: portable .NET platforms
Silverlight
Available since 2.0
Windows Phone Silverlight
Available since 7.0
Windows Phone
Available since 8.1

Any public static ( Shared in Visual Basic) members of this type are thread safe. Any instance members are not guaranteed to be thread safe.

Return to top
Show: