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

Timestamp:

Mar 9, 2007, 10:15:34 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Environment, OperatingSystem, Versionの追加、Unicode対応修正ほか

File:

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

Include/Classes/System/String.ab

@@ -10 +10 @@
 #else
 TypeDef StrChar = WCHAR
+#ifndef UNICODE
+#define __STRING_UNICODE_WINDOWS_ANSI
+#endif
 #endif
 
@@ -494 +497 @@
             Dim i As Long
             For i = 0 To ELM(.m_Length)
-                If .Chars[i] = .oldChar Then
-                    .Chars[i] = .newChar
+                If .Chars[i] = oldChar Then
+                    .Chars[i] = newChar
                 End If
             Next
@@ -558 +561 @@
 
     Static Function Copy(s As String) As String
-        Copy.Resize(s.m_Length)
+        Copy.ReSize(s.m_Length)
         memcpy(Copy.Chars, This.Chars, SizeOf (StrChar) * m_Length)
     End Function