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

Timestamp:

May 17, 2007, 8:07:54 PM (18 years ago)

Author:

OverTaker

Message:

Remove,Insertメソッドのバグ修整。時間がないので適当な修整になってしまいました。

File:

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

Include/Classes/System/String.ab

@@ -458 +458 @@
 
             End If
-            Insert.ReSize(m_Length + length)
+            Insert = New String(m_Length + length)
             memcpy(Insert.Chars, Chars, SizeOf (StrChar) * startIndex)
             memcpy(VarPtr(Insert.Chars[startIndex]), text, SizeOf (StrChar) * length)
@@ -484 +484 @@
             End If
 
-            Remove.ReSize(startIndex)
+            Remove = New String(startIndex)
             memcpy(Remove.Chars, This.Chars, SizeOf (StrChar) * startIndex)
         End Function
@@ -493 +493 @@
             End If
 
-            Remove.ReSize(m_Length - count)
+            Remove = New String(m_Length - count)
             memcpy(Remove.Chars, This.Chars, SizeOf (StrChar) * startIndex)
             memcpy(VarPtr(Remove.Chars[startIndex]), VarPtr(This.Chars[startIndex + count]), SizeOf (StrChar) * (m_Length - startIndex - count))