Doppelte Einträge aus Arraylist löschen

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Public Function KillDoubleEntries(ByRef RefArray As ArrayList) As Long
    Dim Count As Long
    For i As Long = 0 To RefArray.Count - 1
        For n As Long = i + 1 To RefArray.Count - 1
            If i <> n And (RefArray.Count - 1) >= n Then
                If RefArray(i).ToString = RefArray(n).ToString Then
                    RefArray.RemoveAt(i)
                    Count += 1
                    n -= 1
                End If
            End If
        Next
    Next
    Return Count
End Function