Changeset 526

Timestamp:

Jun 26, 2008, 8:25:29 PM (16 years ago)

Author:

OverTaker

Message:

List,TimeSpan.ToString()実装。
Console.WriteのObject型のオーバーロードを追加。

Location:

trunk/ab5.0/ablib/src/Classes/System

Files:

• Collections/Generic/List.ab (modified) (1 diff)
• Console.ab (modified) (1 diff)
• TimeSpan.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/System/Collections/Generic/List.ab

@@ -156 +156 @@
 
     /*!
+    @brief  Listの要素を文字列で返す
+    @author OverTaker
+    @date   2008/6/26
+    @return 文字列
+    */
+    Override Function ToString() As String
+        Dim object As Object
+        Dim s As String
+        Foreach object In This
+            s += object.ToString() + Ex"\r\n"
+        Next
+        Return s
+    End Function
+
+    /*!
     @brief  IEnumeratorインターフェイスを取得する
     @author Daisuke Yamamoto

trunk/ab5.0/ablib/src/Classes/System/Console.ab

@@ -146 +146 @@
     Static Sub Write(x As Int64)
         Write(Str$(x))
+    End Sub
+
+    Static Sub Write(x As Object)
+        Write(x.ToString)
     End Sub
 

trunk/ab5.0/ablib/src/Classes/System/TimeSpan.ab

@@ -164 +164 @@
         End If
     End Function
+
+    Override Function ToString() As String
+        If Ticks < 0 Then
+            Dim span = Negate() As TimeSpan
+            Return ActiveBasic.Strings.SPrintf("-%d:%.2d:%.2d:%.2d.%.4d",
+                New Int32(span.Days) ,New Int32(span.Hours), New Int32(span.Minutes), New Int32(span.Seconds), New Int32(span.Milliseconds))
+        Else
+            Return ActiveBasic.Strings.SPrintf("%d:%.2d:%.2d:%.2d.%.4d",
+                New Int32(Days) ,New Int32(Hours), New Int32(Minutes), New Int32(Seconds), New Int32(Milliseconds))
+        End If
+    End Function
     
     Static Function FromTicks(ticks As Int64) As TimeSpan