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

Timestamp:

Jul 26, 2007, 5:43:54 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

wtypes.abを追加

File:

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

Include/Classes/System/String.ab

@@ -506 +506 @@
             Clone = This
         End Function
+
         Static Function Copy(s As String) As String
             Copy = New String(s.Chars, s.m_Length)
@@ -520 +521 @@
             Dim size = m_Length
 #endif
-            Return _System_GetHashFromWordArray(Chars As *Word, size)
+            Return _System_GetHashFromWordArray(Chars As *Word, size) Xor size
         End Function
 
@@ -541 +542 @@
 
         Function PadRight(total As Long) As String
-            PadLeft(total, &h30 As StrChar)
+            PadRight(total, &h30 As StrChar)
         End Function