Changeset 352 for trunk/Include/Classes/System/Delegate.ab

Timestamp:

Oct 4, 2007, 2:50:09 AM (17 years ago)

Author:

dai

Message:

System.Collections.Generic.List.RemoveAtメソッドを追加
デリゲート型に対する"-"演算子を追加

File:

• trunk/Include/Classes/System/Delegate.ab (modified) (2 diffs)

trunk/Include/Classes/System/Delegate.ab

@@ -18 +18 @@
         This.methodPtr = methodPtr
     End Sub
+
+    Function IsEqual( sd As _SimpleDelegate ) As Boolean
+        Return ( This.hasThisPtr = sd.hasThisPtr and ObjPtr(This.object) = ObjPtr(sd.object) and This.methodPtr = sd.methodPtr )
+    End Function
 End Class
 
@@ -28 +32 @@
         For i=0 To ELM(dg.simpleDelegates.Count)
             simpleDelegates.Add( dg.simpleDelegates[i] )
+        Next
+    End Sub
+
+    Sub _Delete( dg As DelegateBase )
+        Dim i As Long
+        For i=0 To ELM(This.simpleDelegates.Count)
+            Dim i2 As Long
+            Dim isExist = False
+            For i2=0 To ELM(dg.simpleDelegates.Count)
+                If This.simpleDelegates[i].IsEqual( dg.simpleDelegates[i2] ) Then
+                    isExist = True
+                End If
+            Next
+            If isExist Then
+                This.simpleDelegates.RemoveAt( i )
+            End If
         Next
     End Sub