Changeset 175 for Include/system/string.sbp

Timestamp:

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

Author:

イグトランス (egtra)

Message:

Variant, VBObjectの追加

File:

• Include/system/string.sbp (modified) (5 diffs)

Include/system/string.sbp

@@ -28 +28 @@
 Function GetStr(psz As PSTR, ByRef wcs As PWSTR) As SIZE_T
     If psz <> 0 Then
-        Return GetStr(psz, lstrlenA(psz), wcs)
+        Return GetStr(psz, lstrlenA(psz) As SIZE_T, wcs)
     Else
         Return 0
@@ -45 +45 @@
     wcs = psz
     If psz <> 0 Then
-        Return lstrlenW(psz)
+        Return lstrlenW(psz) As SIZE_T
     Else
         Return 0
@@ -64 +64 @@
         Return 0
     Else
-        Return GetStr(psz, lstrlenW(psz), mbs)
+        Return GetStr(psz, lstrlenW(psz) As SIZE_T, mbs)
     End If
 End Function
@@ -79 +79 @@
     mbs = psz
     If psz <> 0 Then
-        Return lstrlenA(psz)
+        Return lstrlenA(psz) As SIZE_T
     Else
         Return 0
@@ -199 +199 @@
 
 Function ToWCStr(ByRef s As String) As PWSTR
-    GetStr(s.Chars As PWSTR, s.Length As SIZE_T, ToWCStr)
+    GetStr(s.Chars, s.Length As SIZE_T, ToWCStr)
 End Function