Changeset 352 for trunk/TestCase/SimpleTestCase/DelegateTest.ab

Timestamp:

Oct 4, 2007, 2:50:09 AM (17 years ago)

Author:

dai

Message:

System.Collections.Generic.List.RemoveAtメソッドを追加
デリゲート型に対する"-"演算子を追加

File:

• trunk/TestCase/SimpleTestCase/DelegateTest.ab (modified) (4 diffs)

trunk/TestCase/SimpleTestCase/DelegateTest.ab

@@ -15 +15 @@
     proc5Flag As Boolean
     proc6Flag As Boolean
+    proc8Flag As Boolean
 
     Static staticProc1Flag = False As Boolean
@@ -30 +31 @@
         proc5Flag = False
         proc6Flag = False
+        proc8Flag = True
     End Sub
     Function CheckFlags() As Boolean
-        Return proc1Flag and proc2Flag and proc3Flag and proc4Flag and proc5Flag and proc6Flag
+        Return proc1Flag and proc2Flag and proc3Flag and proc4Flag and proc5Flag and proc6Flag and proc8Flag
     End Function
 
@@ -62 +64 @@
         Return "Proc7 result[" + str + "]"
     End Function
+
+    Sub Proc8( a As String )
+        proc8Flag = False
+    End Sub
 End Class
 
@@ -72 +78 @@
     dg4 += AddressOf(testObj.Proc5)
     dg4 += AddressOf(testObj.Proc6)
+    dg4 += AddressOf(testObj.Proc8)
+    dg4 -= AddressOf(testObj.Proc8)
 
     dg1()