Changeset 308

Timestamp:

Aug 27, 2007, 12:10:17 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

Equalsの一部を実装

File:

• trunk/Include/Classes/System/String.ab (modified) (1 diff)

trunk/Include/Classes/System/String.ab

@@ -244 +244 @@
     '       End If
             Return CompareTo(y As String)
+        End Function
+
+        Function Equals(s As String) As Boolean
+            Return This = s
+        End Function
+
+        Override Function Equals(s As Object) As Boolean
+            If This.GetType = s.GetType Then
+                Return This.Equals(s As String)
+            End If
+            Return False
         End Function