Ignore:
Timestamp:
Nov 23, 2007, 11:39:44 AM (17 years ago)
Author:
dai
Message:

StrPtr内の判定ミスを修正。
SPrintFクラス内のx64に対するコードを修正。
ArrayListクラスのIListインターフェイス実装を一旦保留。
ListクラスにIEnumeratable、IEnumeratorインターフェイスを実装（まだ実装中…）。

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Include/Classes/System/Collections/ArrayList.ab

    r381 r386  
    77
    88Class ArrayList
    9     Implements IList /*, ICollection, IEnumerable, ICloneable*/
     9    'Implements IList /*, ICollection, IEnumerable, ICloneable*/
    1010
    1111    pObject As *Object
    … …  
    7676    End Function
    7777
    78     /*Const*/ Override Function IsFixedSize() As Boolean
     78    /*Const*/ Function IsFixedSize() As Boolean
    7979        Return False
    8080    End Function
    8181
    82     /*Const*/ Override Function IsReadOnly() As Boolean
     82    /*Const*/ Function IsReadOnly() As Boolean
    8383        Return False
    8484    End Function
    … …  
    219219    End Function
    220220
    221     /*Const*/ Override Function IndexOf(object As Object) As Long
     221    /*Const*/ Function IndexOf(object As Object) As Long
    222222        Return IndexOf(object, 0, size)
    223223    End Function
    … …  
    238238    End Function
    239239
    240     Override Sub Insert(i As Long, object As Object)
     240    Sub Insert(i As Long, object As Object)
    241241        SetLeastCapacity(size + 1)
    242242        memmove(VarPtr(pObject[i + 1]), VarPtr(pObject[i]), SizeOf (*Object) * (size - i))
    … …  
    261261    End Function
    262262
    263     Override Sub Remove(object As Object)
     263    Sub Remove(object As Object)
    264264        Dim i = IndexOf(object)
    265265        If i > 0 Then
    … …  
    268268    End Sub
    269269
    270     Override Sub RemoveAt(i As Long)
     270    Sub RemoveAt(i As Long)
    271271        RemoveRange(i, 1)
    272272    End Sub
    … …  
    307307    End Sub
    308308
    309     /*Override*/ Override Function ToString() As String
     309    Override Function ToString() As String
    310310        Return "System.Collections.ArrayList"
    311311    End Function
Note: See TracChangeset for help on using the changeset viewer.