Changeset 272 for Include/com

Timestamp:

Jun 12, 2007, 7:24:38 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

StringBuilderを追加。String不変へ。共通の文字列操作関数をActiveBasic.Strings内に配置（設計に検討の余地あり）。

File:

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

Include/com/bstring.ab

@@ -8 +8 @@
 
 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
+    'Inherits System.IDisposable, System.ICloneable
 Public
     Sub BString()
@@ -22 +18 @@
     End Sub
 
-    Sub BString(ByRef s As BString)
+    Sub BString(s As BString)
         Init(s.bs, s.Length)
     End Sub
@@ -44 +40 @@
     End Sub
 
-    Sub BString(ByRef s As String)
+    Sub BString(s As String)
         Init(s.StrPtr, s.Length As DWord)
     End Sub
@@ -52 +48 @@
     End Sub
 
-    Sub Assign(ByRef bstr As BString)
+    Sub Assign(bstr As BString)
         Clear()
         Init(bstr, bstr.Length)
@@ -70 +66 @@
         BString.Copy(Copy, bs)
     End Function
+
+    /*Override*/ Function Clone() As BString
+        Return New BString(This)
+    End Function
+
+    /*Override*/ Sub Dispose()
+        Clear()
+    End Sub
 
     Sub Clear()
@@ -134 +138 @@
     bs As BSTR
 
+    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
+
     Static Sub Copy(ByRef dst As BSTR, ByVal src As BSTR)
         dst = SysAllocStringLen(src, SysStringLen(src))