Changeset 125 for Include/Classes/System/String.ab

Timestamp:

Mar 2, 2007, 2:57:09 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

#51完了

File:

• Include/Classes/System/String.ab (modified) (2 diffs)

Include/Classes/System/String.ab

@@ -12 +12 @@
         String()
         Assign(initStr)
+    End Sub
+
+    Sub String(initStr As *Char, length As Long)
+        String()
+        Assign(initStr, length)
     End Sub
 
@@ -454 +459 @@
 
     Sub ToLower()
-        CharLower(Chars)
+        Dim i As Long
+        For i = 0 To m_Length
+            Chars[i] = _System_ASCII_ToLower(Chars[i])
+        Next
     End Sub
 
     Sub ToUpper()
-        CharUpper(Chars)
+        Dim i As Long
+        For i = 0 To m_Length
+            Chars[i] = _System_ASCII_ToUpper(Chars[i])
+        Next
     End Sub