Changeset 142 for Include/com/bstring.ab

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

File:

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

Include/com/bstring.ab

@@ -11 +11 @@
 
     Sub BString(len As DWord)
-        bs = SysAllocStringLen(len)
+        bs = SysAllocStringLen(0, len)
     End Sub
 
@@ -40 +40 @@
     End Sub
 
+    Sub ~BString()
+        Clear()
+    End Sub
+
     Sub Operator =(ByRef bstr As BString)
-        ~BString()
+        Clear()
         BString(bstr)
     End Sub
 
-    Sub ~BString()
+    Sub Operator =(s As LPCOLESTR)
         Clear()
+        BString(s)
+    End Sub
+
+    Sub Assign(ByRef bstr As BString)
+        Clear()
+        BString(bstr)
+    End Sub
+
+    Sub Assign(s As LPCOLESTR)
+        Clear()
+        BString(s)
+    End Sub
+
+    Sub AssignFromBStr(bstr As BSTR)
+        Clear()
+        BString(bstr)
     End Sub
 
@@ -74 +94 @@
     End Function
 
-    Const Function Operator [](i As SIZE_T)
+    Const Function Operator [](i As SIZE_T) As OLECHAR
 #ifdef _DEBUG
         If i > Length Then