Changeset 340 for trunk/Include/Classes/System/Collections

Timestamp:

Sep 28, 2007, 3:32:25 AM (17 years ago)

Author:

dai

Message:

デリゲートを試験実装
【現状のデリゲート制約】
・ダイナミックメソッド限定
・パラメータ相違チェックは行っていない

GCHandle.allocatedメンバをListクラスに変更。
List.Removeメソッドを追加

File:

• trunk/Include/Classes/System/Collections/Generic/List.ab (modified) (1 diff)

trunk/Include/Classes/System/Collections/Generic/List.ab

@@ -97 +97 @@
         size++
     End Sub
+
+    /*!
+    @brief  List内で最初に出現する値を削除する
+    @author Daisuke Yamamoto
+    @date   2007/09/28
+    @return 値が削除されたときはTrue、されなかったときはFlaseが返る
+    */
+    Function Remove( item As T ) As Boolean
+        Dim index = IndexOf( item )
+        If index = -1 Then
+            Return False
+        End If
+        memmove( items + index*SizeOf(VoidPtr), items + (index+1)*SizeOf(VoidPtr), (size-(index+1))*SizeOf(VoidPtr) )
+        Realloc( size - 1 )
+        Return True
+    End Function
 End Class