Changeset 177

Timestamp:

Mar 23, 2007, 12:57:19 AM (18 years ago)

Author:

森崎 孝明

Message:

些細なバグの修正

File:

• Include/system/string.sbp (modified) (1 diff)

Include/system/string.sbp

@@ -36 +36 @@
 Function GetStr(psz As PSTR, len As SIZE_T, ByRef wcs As PWSTR) As SIZE_T
     If psz = 0 Then Return 0
-    Dim sizeWCS = MultiByteToWideChar(CP_THREAD_ACP, 0, psz, len, 0, 0)
+    Dim sizeWCS = MultiByteToWideChar(CP_THREAD_ACP, 0, psz, len, 0, 0) + 1
     wcs = _System_AllocForConvertedString(SizeOf (WCHAR) * sizeWCS) As PWSTR
     GetStr = MultiByteToWideChar(CP_THREAD_ACP, 0, psz, len, wcs, sizeWCS)