Changeset 335 for trunk/Include/com/bstring.ab

Timestamp:

Sep 18, 2007, 12:10:41 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

SPrintF関連の追加。関数FloatToChars, FormatFloatE, FormatIntegerUと列挙体FormatFlags。

File:

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

trunk/Include/com/bstring.ab

@@ -1 +1 @@
 ' com/bstring.ab
 
-#require <ole2.ab>
-#require <oleauto.ab>
+'#require <ole2.ab>
+'#require <oleauto.ab>
 
 Namespace ActiveBasic
@@ -19 +19 @@
 
     Sub BString(s As BString)
-        Init(s.bs, s.Length)
+        BString.Copy(This.bs, s.bs)
     End Sub
 
@@ -50 +50 @@
     Sub Assign(bstr As BString)
         Clear()
-        Init(bstr, bstr.Length)
+        BString.Copy(This.bs, bstr.bs)
     End Sub
 
     Sub Assign(s As LPCOLESTR)
         Clear()
-        Init(s, lstrlenW(s))
+        s = SysAllocString(s)
     End Sub
 
     Sub AssignFromBStr(bstr As BSTR)
         Clear()
-        String.Copy(bs, bstr)
+        BString.Copy(bs, bstr)
     End Sub