Changeset 226 for Include/com/bstring.ab

Timestamp:

May 1, 2007, 1:21:27 AM (18 years ago)

Author:

イグトランス (egtra)

Message:

StringTest追加

File:

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

Include/com/bstring.ab

@@ -5 +5 @@
 
 Class BString
+    Sub Init(s As PCSTR, len As DWord)
+        Dim lenBS = MultiByteToWideChar(CP_THREAD_ACP, 0, s, len As Long, 0, 0)
+        bs = SysAllocStringLen(0, lenBS)
+        MultiByteToWideChar(CP_THREAD_ACP, 0, s, len As Long, bs, lenBS)
+    End Sub
 Public
     Sub BString()
@@ -15 +20 @@
 
     Sub BString(ByRef s As BString)
-        BString(s.bs, s.Length)
+        Init(s.bs, s.Length)
     End Sub
 
@@ -27 +32 @@
 
     Sub BString(s As PCSTR)
-        BString(s, lstrlenA(s))
+        Init(s, lstrlenA(s))
     End Sub
 
@@ -37 +42 @@
 
     Sub BString(ByRef s As String)
-        BString(s.StrPtr, s.Length As DWord)
+        Init(s.StrPtr, s.Length As DWord)
     End Sub
 
@@ -44 +49 @@
     End Sub
 
-    Sub Operator =(ByRef bstr As BString)
-        Clear()
-        BString(bstr)
-    End Sub
-
-    Sub Operator =(s As LPCOLESTR)
-        Clear()
-        BString(s)
-    End Sub
-
     Sub Assign(ByRef bstr As BString)
         Clear()
-        BString(bstr)
+        Init(bstr, bstr.Length)
     End Sub
 
     Sub Assign(s As LPCOLESTR)
         Clear()
-        BString(s)
+        Init(s, lstrlenW(s))
     End Sub