Changeset 135 for Include/Classes/System

Timestamp:

Mar 5, 2007, 8:46:48 PM (18 years ago)

Author:

OverTaker

Message:

Removeメソッドのバグを修整。

File:

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

Include/Classes/System/String.ab

@@ -338 +338 @@
 
     Const Function Remove(startIndex As Long) As String
+        If startIndex < 0 Or startIndex > m_Length Then
+            Debug 'ArgumentOutOfRangeException
+        End If
+
         Remove.ReSize(startIndex)
         memcpy(Remove.Chars, This.Chars, SizeOf (Char) * startIndex)
@@ -343 +347 @@
 
     Const Function Remove(startIndex As Long, count As Long) As String
+        If startIndex < 0 Or count < 0 Or startIndex + count > m_Length Then
+            Debug 'ArgumentOutOfRangeException
+        End If
+
         Remove.ReSize(m_Length - count)
         memcpy(Remove.Chars, This.Chars, SizeOf (Char) * startIndex)
-        memcpy(VarPtr(Remove.Chars[startIndex]), VarPtr(This.Chars[startIndex + count]), SizeOf (Char) * startIndex)
+        memcpy(VarPtr(Remove.Chars[startIndex]), VarPtr(This.Chars[startIndex + count]), SizeOf (Char) * (m_Length - startIndex - count))
     End Function
 /*