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

Timestamp:

Sep 29, 2007, 1:22:17 PM (17 years ago)

Author:

dai

Message:

デリゲート機構にエラーチェックを仕込んだ

File:

• trunk/TestCase/SimpleTestCase/DelegateTest.ab (modified) (1 diff)

trunk/TestCase/SimpleTestCase/DelegateTest.ab

@@ -39 +39 @@
     End Sub
 
-    Sub Proc2()
+    Function Proc2() As Long
         proc2Flag = True
-    End Sub
+    End Function
 
     Sub Proc3or4( a As Long )