Changeset 391 for trunk/Include/Classes/ActiveBasic/Strings

Timestamp:

Dec 7, 2007, 12:21:58 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

FileStream非同期読み書きの修正、例外処理の追加。

Location:

trunk/Include/Classes/ActiveBasic/Strings

Files:

• SPrintF.ab (modified) (3 diffs)
• Strings.ab (modified) (1 diff)

trunk/Include/Classes/ActiveBasic/Strings/SPrintF.ab

@@ -818 +818 @@
 
     Dim sb = New System.Text.StringBuilder
+    If sb.Length = &hfeeefeee Then Debug
     With sb
         Dim prefixFunc = tr.Prefix
         Dim prefix = prefixFunc(x, flags)
         sb.Append(prefix)
+        If sb.Length = &hfeeefeee Then Debug
 
         Dim prefixLen = 0 As DWord
@@ -832 +834 @@
         Dim bufStartPos = convertFunc(buf, x, flags)
 
+        If sb.Length = &hfeeefeee Then Debug
         Dim len = (tr.MaxSize - bufStartPos) As Long
         If len < 0 Then
@@ -841 +844 @@
 
         .Append(buf, bufStartPos + 1, len)
+        If sb.Length = &hfeeefeee Then Debug
 
         AdjustFieldWidth(sb, field, flags And (Not (Sign Or Blank)), prefixLen)
+        If sb.Length = &hfeeefeee Then Debug
     End With
     FormatIntegerEx = sb.ToString()

trunk/Include/Classes/ActiveBasic/Strings/Strings.ab

@@ -199 +199 @@
 
 Namespace Detail
-Function Split(s As String, c As StrChar) As System.Collections.ArrayList
-    Split = New System.Collections.ArrayList
+Function Split(s As String, c As StrChar) As System.Collections.Generic.List<String>
+    Split = New System.Collections.Generic.List<String>
 
     Dim last = 0 As Long