Changeset 370 for trunk/Include/Classes/System/Text

Timestamp:

Nov 3, 2007, 5:18:30 PM (17 years ago)

Author:

dai

Message:

System.GCクラスを追加。
64ビットコンパイラで生じる警告を改修した。

File:

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

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

@@ -407 +407 @@
         Dim curPos = 0 As Long
         Do
-            Dim nextPos = ActiveBasic.Strings.ChrFind(VarPtr(chars[curPos]) As *StrChar, size As SIZE_T, StrPtr(oldStr), oldStr.Length As SIZE_T)
+            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