Changeset 226 for Include/Classes

Timestamp:

May 1, 2007, 1:21:27 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

StringTest追加

File:

• Include/Classes/System/String.ab (modified) (5 diffs)

Include/Classes/System/String.ab

@@ -71 +71 @@
         Return Chars
     End Function
-
-/*  Sub Operator = (ByRef objString As String)
-        Assign(objString.Chars, objString.m_Length)
-    End Sub
-
-    Sub Operator = (text As *Byte)
-        Assign(text As PCTSTR)
-    End Sub
-
-    Sub Operator = (text As PCSTR)
-        Assign(text)
-    End Sub
-
-    Sub Operator = (text As PCWSTR)
-        Assign(text)
-    End Sub*/
 
     Const Function Operator [] (n As Long) As StrChar
@@ -372 +356 @@
 
     Static Function Concat(x As String, y As String) As String
-        If x = Nothing Then
+        If String.IsNullOrEmpty(x) Then
             Return y
         Else
-            Return x.Concat(objString.Chars, objString.m_Length)
+            Return x.Concat(y.Chars, y.m_Length)
         End If
     End Function
@@ -513 +497 @@
 
     Static Function IsNullOrEmpty(s As String) As Boolean
-        If s <> Nothing Then
+        If Not Object.ReferenceEquals(s, Nothing) Then
             If s.m_Length > 0 Then
-                Return True
+                Return False
             End If
         End If
-        Return False
+        Return True
     End Function
 
@@ -573 +557 @@
         Next
     End Function
-
+/*
     Sub Swap(ByRef x As String)
         Dim tempLen As Long
@@ -584 +568 @@
         This.Chars = tempChars
     End Sub
-
+*/
     Override Function ToString() As String
         Return This