Changeset 435 for trunk/Include/Classes/System/Text/StringBuilder.ab

Timestamp:

Feb 28, 2008, 1:39:16 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

Consoleをスレッド安全化（クリティカルセクション使用）。
Exception.HResultをPublicにした。
StringBuilder.Replaceが正しく機能しない問題を解消。

File:

• trunk/Include/Classes/System/Text/StringBuilder.ab (modified) (1 diff)

trunk/Include/Classes/System/Text/StringBuilder.ab

@@ -387 +387 @@
 
         Dim s = New StringBuilder(capacity, maxCapacity)
-        Dim curPos = 0 As Long
+        Dim curPos = start
+        Dim last = start + count
         Do
             Dim nextPos = ActiveBasic.Strings.ChrFind(VarPtr(chars[curPos]) As *StrChar, size As SIZE_T, StrPtr(oldStr), oldStr.Length As SIZE_T) As Long
-            If nextPos = -1 As SIZE_T Then
-                Exit Sub
+            If nextPos = -1 As SIZE_T Or curPos > last Then
+                s.appendCore(chars, curPos, size - curPos)
+                Exit Do
             End If