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

Timestamp:

Mar 28, 2008, 5:43:34 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

インクルードガードとその他不要な前処理定義などの削除

File:

• trunk/Include/Classes/System/Text/StringBuilder.ab (modified) (4 diffs)

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

@@ -1 +1 @@
 'Classes/System/Text/StringBuilder.ab
-
-#require <Classes/ActiveBasic/Strings/Strings.ab>
 
 Namespace System
@@ -7 +5 @@
 
 Class StringBuilder
-    'Inherits ISerializable
 Public
     Sub StringBuilder()
@@ -196 +193 @@
 
     Override Function GetHashCode() As Long
-#ifdef __STRING_IS_NOT_UNICODE
+#ifdef UNICODE
+        Dim n = size
+#else
         Dim n = (size + 1) >> 1
-#else
-        Dim n = size
 #endif
         Return _System_GetHashFromWordArray(chars As *Word, n As SIZE_T) Xor capacity Xor maxCapacity
@@ -214 +211 @@
         Return This
     End Function
-#ifdef __STRING_IS_NOT_UNICODE
+#ifdef UNICODE
+    Function Insert(i As Long, x As SByte) As StringBuilder
+        rangeCheck(i)
+        insertCore(i, Str$(x As Long))
+        Return This
+    End Function
+#else
     Function Insert(i As Long, x As Word) As StringBuilder
         rangeCheck(i)
         insertCore(i, Str$(x As DWord))
-        Return This
-    End Function
-#else
-    Function Insert(i As Long, x As SByte) As StringBuilder
-        rangeCheck(i)
-        insertCore(i, Str$(x As Long))
         Return This
     End Function