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

Timestamp:

Mar 21, 2007, 7:06:34 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Variant, VBObjectの追加

File:

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

Include/Classes/System/String.ab

@@ -233 +233 @@
     End Sub
 
-    Sub AssignFromStrChar(text As *StrChar, textLength As Long)
-        If text = Chars Then Exit Sub
-        If AllocStringBuffer(textLength) <> 0 Then
-            memcpy(Chars, text, SizeOf (StrChar) * textLength)
-            Chars[m_Length] = 0
-        End If
-    End Sub
-#ifdef __STRCHAR_IS_NOT_UNICODE
-    Sub AssignFromWideChar(text As PCWSTR, textLengthW As Long)
+    Sub Assign(text As PCSTR, textLengthA As Long)
+#ifdef __STRING_IS_NOT_UNICODE
+        AssignFromStrChar(text, textLengthA)
+#else
+        Dim textLengthW = MultiByteToWideChar(CP_THREAD_ACP, 0, text, textLengthA, 0, 0)
+        If AllocStringBuffer(textLengthW) <> 0 Then
+            MultiByteToWideChar(CP_THREAD_ACP, 0, text, textLengthA, Chars, textLengthW)
+        End If
+#endif
+    End Sub
+
+    Sub Assign(text As PCWSTR, textLengthW As Long)
+#ifdef __STRING_IS_NOT_UNICODE
         Dim textLengthA = WideCharToMultiByte(CP_THREAD_ACP, 0, text, textLengthW, 0, 0, 0, 0)
         If AllocStringBuffer(textLengthA) <> 0 Then
             WideCharToMultiByte(CP_THREAD_ACP, 0, text, textLengthW, Chars, textLengthA, 0, 0)
         End If
-    End Sub
 #else
-    Sub AssignFromMultiByte(text As PCSTR, textLengthA As Long)
-        Dim textLengthW = MultiByteToWideChar(CP_THREAD_ACP, 0, text, textLengthA, 0, 0)
-        If AllocStringBuffer(textLengthW) <> 0 Then
-            MultiByteToWideChar(CP_THREAD_ACP, 0, text, textLengthA, Chars, textLengthW)
-        End If
-    End Sub
-#endif
-    Sub Assign(text As PCSTR, textLength As Long)
-#ifdef __STRING_IS_NOT_UNICODE
-        AssignFromStrChar(text, textLength)
-#else
-        AssignFromMultiByte(text, textLength)
-#endif
-    End Sub
-
-    Sub Assign(text As PCWSTR, textLength As Long)
-#ifdef __STRING_IS_NOT_UNICODE
-        AssignFromWideChar(text, textLength)
-#else
-        AssignFromStrChar(text, textLength)
+        AssignFromStrChar(text, textLengthW)
 #endif
     End Sub
@@ -571 +555 @@
         Dim size = m_Length
 #endif
-        Dim hash = 0 As DWord
-        Dim p = Chars As *Word
-        Dim i As Long
-        For i = 0 To ELM(size)
-            hash = ((hash << 16) + p[i]) Mod &h7fffffff
-        Next
-        Return hash As Long
+        Return _System_GetHashFromWordArray(Chars As *Word, size)
     End Function
 Private
@@ -617 +595 @@
     End Function
 
+    Sub AssignFromStrChar(text As *StrChar, textLength As Long)
+        If text = Chars Then Exit Sub
+        If AllocStringBuffer(textLength) <> 0 Then
+            memcpy(Chars, text, SizeOf (StrChar) * textLength)
+            Chars[m_Length] = 0
+        End If
+    End Sub
 End Class