Ignore:
Timestamp:
Mar 26, 2007, 6:24:36 AM (18 years ago)
Author:
dai
Message:

_System_StrCmpのオーバーロードが解決できないバグを修正。

File:
1 edited

Legend:

Unmodified
Added
Removed

  • Include/Classes/System/String.ab

    r175 r182  
    148148
    149149    Const Function Operator == (ByRef objString As String) As Boolean
    150         Return _System_StrCmp(This, objString) = 0
     150        Return _System_StrCmp(This.Chars, objString.Chars) = 0
    151151    End Function
    152152
    153153    Const Function Operator == (text As *StrChar) As Long
    154         Return _System_StrCmp(This, text) = 0
     154        Return _System_StrCmp(This.Chars, text) = 0
    155155    End Function
    156156
    157157    Const Function Operator <> (ByRef objString As String) As Boolean
    158         Return _System_StrCmp(This, objString) <> 0
     158        Return _System_StrCmp(This.Chars, objString.Chars) <> 0
    159159    End Function
    160160
    161161    Const Function Operator <> (text As *StrChar) As Boolean
    162         Return _System_StrCmp(This, text) <> 0
     162        Return _System_StrCmp(This.Chars, text) <> 0
    163163    End Function
    164164
    165165    Const Function Operator < (ByRef objString As String) As Boolean
    166         Return _System_StrCmp(This, objString) < 0
     166        Return _System_StrCmp(This.Chars, objString.Chars) < 0
    167167    End Function
    168168
    169169    Const Function Operator < (text As *StrChar) As Boolean
    170         Return _System_StrCmp(This, text) < 0
     170        Return _System_StrCmp(This.Chars, text) < 0
    171171    End Function
    172172
    173173    Const Function Operator > (ByRef objString As String) As Boolean
    174         Return _System_StrCmp(This, objString) > 0
     174        Return _System_StrCmp(This.Chars, objString.Chars) > 0
    175175    End Function
    176176
    177177    Const Function Operator > (text As *StrChar) As Boolean
    178         Return _System_StrCmp(This, text) > 0
     178        Return _System_StrCmp(This.Chars, text) > 0
    179179    End Function
    180180
    181181    Const Function Operator <= (ByRef objString As String) As Boolean
    182         Return _System_StrCmp(This, objString) <= 0
     182        Return _System_StrCmp(This.Chars, objString.Chars) <= 0
    183183    End Function
    184184
    185185    Const Function Operator <= (text As *StrChar) As Boolean
    186         Return _System_StrCmp(This, text) <= 0
     186        Return _System_StrCmp(This.Chars, text) <= 0
    187187    End Function
    188188
    189189    Const Function Operator >= (ByRef objString As String) As Boolean
    190         Return _System_StrCmp(This, objString) >= 0
     190        Return _System_StrCmp(This.Chars, objString.Chars) >= 0
    191191    End Function
    192192
    193193    Const Function Operator >= (text As *StrChar) As Boolean
    194         Return _System_StrCmp(This, text) >= 0
     194        Return _System_StrCmp(This.Chars, text) >= 0
    195195    End Function
    196196
Note: See TracChangeset for help on using the changeset viewer.