🚀 go-pugleaf

Użytkownik "Piotr Lipski" <piotr.lipski@nie.p0czta.spamuj.b0.onet.w.ryj.pl>
napisał w wiadomości news:dj7cg8$s8a$1@news.onet.pl...
> Kolejny pomysł - zajrzę na Google, a w międzyczasie zapytam na grupie
> vbasic, może mi ktoś coś zasugeruje...

Przychodzi mi do glowy zmodyfikowanie Twoich obiektow
przez dodanie implementacji GetHashCode()+Equals()
w polaczeniu z arraylist.Remove(). Można by to opakowac
we wlasą metodę, dziedziczac po ArrayList albo CollectionBase.

W tym sposobie chodzi o to, ze obiekty same "wiedzą" jak sie
porównywać:

Public Class MyClass1
    Public Sub New(ByVal s As Integer)
        status1 = s
    End Sub
    Private status1 As Integer
    Public Overrides Function GetHashCode() As Integer
        Return status1.GetHashCode()
    End Function
    Public Overloads Overrides Function Equals(ByVal obj As _
    Object) As Boolean
        Dim ret As Boolean = False
        If (TypeOf (obj) Is MyClass1 AndAlso Not obj Is Nothing) Then
            Dim o As MyClass1 = DirectCast(obj, MyClass1)
            If (Me.status1 = o.status1) Then
                ret = True
            End If
        End If
        Return ret
    End Function
End Class

I teraz dodajemy jakies obiekty, dwa mają status=1
private al as new Arraylist()
(...)
al.Add(New MyClass1(1))
al.Add(New MyClass1(1))
al.Add(New MyClass1(2))
al.Add(New MyClass1(3))

I usuwamy ze statusem =1:
Dim count As Integer = al.Count
Dim toRemove = New MyClass1(1)
Do While (al.Count = count)
    al.Remove(toRemove)
    count -= 1
Loop

Ten ostatni kawalek kodu mozna by zamknac w jakiejs
swojej metodzie, dziedziczac po ArrayList i dodając
metode typu DeleteAll(status as integer)

Nie wiem czy bedzie to szybsze od Twojego sposobu,
ale przynajmnie bedzie ladnie zapakowane =)