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

Timestamp:

Jun 29, 2008, 11:42:27 AM (16 years ago)

Author:

OverTaker

Message:

String.Split,Joinメソッド実装

File:

• trunk/ab5.0/ablib/src/Classes/System/Collections/Generic/List.ab (modified) (1 diff)

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

@@ -162 +162 @@
     */
     Override Function ToString() As String
-        Dim object As Object
-        Dim s As String
-        Foreach object In This
-            s += object.ToString() + Ex"\r\n"
+        Dim string As String
+        Dim i As Long
+        For i = 0 To This.Count-2
+            string += This[i].ToString() + Ex"\r\n"
         Next
-        Return s
+        Return string + This[i].ToString()
     End Function