Ignore:
Timestamp:
Mar 13, 2008, 9:44:51 AM (17 years ago)
Author:
dai
Message:

XmlSerializer.Deserializeメソッドを実装(仮実装なため、数値メンバのシリアライズのみに留まっている)。
XmlNode.LastChildメソッドを追加。
XmlNode.NextSiblingメソッドを追加。
XmlNode.PreviouseSiblingメソッドを追加。

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Include/system/enum.sbp

    r446 r475  
    1 Class EnumBase
     1Class EnumBase<T As EnumBase>
    22Protected
    33    value As Long
     
    4040
    4141    Function Operator == (value As Long) As Boolean
    42         If This.value = value Then
    43             Return True
    44         Else
    45             Return False
    46         End If
     42        Return ( This.value = value )
    4743    End Function
    4844
    49     Function Operator == (enumBase As EnumBase) As Boolean
    50         If This.value = enumBase.value Then
    51             Return True
    52         Else
    53             Return False
    54         End If
     45    Function Operator == (enumObj As T) As Boolean
     46        Return ( This.value = enumObj.value )
    5547    End Function
    5648
     
    5951    End Function
    6052
    61     Function Operator <> (enumBase As EnumBase) As Boolean
    62         Return Not( This = enumBase)
     53    Function Operator <> (enumObj As T) As Boolean
     54        Return Not( This = enumObj)
    6355    End Function
    6456
    65     Function Operator or (enumBase As EnumBase) As Boolean
    66         Return ( This.value or enumBase.value ) <> 0
     57    Function Operator or (enumObj As T) As Boolean
     58        Return ( This.value or enumObj.value ) <> 0
    6759    End Function
    6860
    69     Function Operator and (enumBase As EnumBase) As Boolean
    70         Return ( This.value and enumBase.value ) <> 0
     61    Function Operator and (enumObj As T) As Boolean
     62        Return ( This.value and enumObj.value ) <> 0
    7163    End Function
    7264
    73     Function Operator or (enumBase As EnumBase) As EnumBase
    74         Return New EnumBase( This.value or enumBase.value, This.lpszName )
     65    Function Operator or (enumObj As T) As T
     66        Return New EnumBase( This.value or enumObj.value, This.lpszName )
    7567    End Function
    7668
    77     Function Operator and (enumBase As EnumBase) As EnumBase
    78         Return New EnumBase( This.value and enumBase.value, This.lpszName )
     69    Function Operator and (enumObj As T) As T
     70        Return New EnumBase( This.value and enumObj.value, This.lpszName )
    7971    End Function
    8072/*
Note: See TracChangeset for help on using the changeset viewer.