Changeset 208 for Include/com/bstring.ab

Timestamp:

Apr 7, 2007, 10:20:40 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

[207]参照型変数のNothing初期化に対応する修正

File:

• Include/com/bstring.ab (modified) (3 diffs)

Include/com/bstring.ab

@@ -31 +31 @@
 
     Sub BString(s As PCSTR, len As DWord)
-        Dim lenBS = MultiByteToWideChar(CP_THREAD_ACP, 0, s, len, 0, 0)
+        Dim lenBS = MultiByteToWideChar(CP_THREAD_ACP, 0, s, len As Long, 0, 0)
         bs = SysAllocStringLen(0, lenBS)
-        MultiByteToWideChar(CP_THREAD_ACP, 0, s, len, bs, lenBS)
+        MultiByteToWideChar(CP_THREAD_ACP, 0, s, len As Long, bs, lenBS)
     End Sub
 
@@ -92 +92 @@
         BStr = bs
     End Function
+/*
+    Static Function Assgin(bs As BSTR) As BString
+        Assgin = New BString
+        Assgin.Assgin(bs)
+    End Function
 
+    Static Function Attach(bs As BSTR) As BString
+        Attach = New BString
+        Attach.Attach(bs)
+    End Function
+*/
     Const Function Length() As DWord
         Length = SysStringLen(bs)
@@ -116 +126 @@
 
     Override Function ToString() As String
-        Dim s As String(bs As PCWSTR, Length As Long)
-        Return s
+        Return New String(bs As PCWSTR, Length As Long)
     End Function