Changeset 134


Ignore:
Timestamp:
Mar 5, 2007, 7:05:56 PM (18 years ago)
Author:
イグトランス (egtra)
Message:

ToUpper, ToLowerを戻り値で書き換えた文字列を返すように変更

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/System/String.ab

    r132 r134  
    394394    End Function
    395395
    396     Sub ToLower()
     396    Const Function ToLower() As String
     397        ToLower.ReSize(m_Length)
    397398        Dim i As Long
    398         For i = 0 To m_Length
    399             Chars[i] = _System_ASCII_ToLower(Chars[i])
     399        For i = 0 To ELM(m_Length)
     400            ToLower.Chars[i] = _System_ASCII_ToLower(Chars[i])
    400401        Next
    401     End Sub
    402 
    403     Sub ToUpper()
     402    End Function
     403
     404    Const Function ToUpper() As String
     405        ToUpper.ReSize(m_Length)
    404406        Dim i As Long
    405         For i = 0 To m_Length
    406             Chars[i] = _System_ASCII_ToUpper(Chars[i])
     407        For i = 0 To ELM(m_Length)
     408            ToUpper.Chars[i] = _System_ASCII_ToUpper(Chars[i])
    407409        Next
    408     End Sub
     410    End Function
    409411
    410412    Sub Swap(ByRef x As String)
Note: See TracChangeset for help on using the changeset viewer.