Changeset 134 for Include

Timestamp:

Mar 5, 2007, 7:05:56 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

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

File:

• Include/Classes/System/String.ab (modified) (1 diff)

Include/Classes/System/String.ab

@@ -394 +394 @@
     End Function
 
-    Sub ToLower()
+    Const Function ToLower() As String
+        ToLower.ReSize(m_Length)
         Dim i As Long
-        For i = 0 To m_Length
-            Chars[i] = _System_ASCII_ToLower(Chars[i])
+        For i = 0 To ELM(m_Length)
+            ToLower.Chars[i] = _System_ASCII_ToLower(Chars[i])
         Next
-    End Sub
-
-    Sub ToUpper()
+    End Function
+
+    Const Function ToUpper() As String
+        ToUpper.ReSize(m_Length)
         Dim i As Long
-        For i = 0 To m_Length
-            Chars[i] = _System_ASCII_ToUpper(Chars[i])
+        For i = 0 To ELM(m_Length)
+            ToUpper.Chars[i] = _System_ASCII_ToUpper(Chars[i])
         Next
-    End Sub
+    End Function
 
     Sub Swap(ByRef x As String)