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

Timestamp:

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

Author:

dai

Message:

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

File:

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

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

@@ -109 +109 @@
             Return False
         End If
+
+        RemoveAt( index )
+        Return True
+    End Function
+
+    /*!
+    @brief  List内の指定したインデックスの要素を削除する
+    @author Daisuke Yamamoto
+    @date   2007/10/03
+    @return 値が削除されたときはTrue、されなかったときはFlaseが返る
+    */
+    Sub RemoveAt( index As Long )
         memmove( items + index*SizeOf(VoidPtr), items + (index+1)*SizeOf(VoidPtr), (size-(index+1))*SizeOf(VoidPtr) )
         Realloc( size - 1 )
         size--
-        Return True
-    End Function
+    End Sub
 End Class