source: trunk/bin/SubOperation/templates/delegate_class.tab@ 338

Last change on this file since 338 was 338, checked in by dai, 17 years ago

静的リンクライブラリ、デバッグ情報の内部形式をバイナリにした(コンパイル時間が短縮されました)。
デリゲートのベースを実装中(まだ動きません)

File size: 348 bytes
Line 
1Class Delegate #name#
2 Inherits System.DelegateBase
3
4Public
5 Sub Callback()
6 End Sub
7 Sub Callback( sd As System._SimpleDelegate )
8 Add( sd )
9 End Sub
10 Sub Call(#params#)
11 Dim i As Long
12 For i = 0 To ELM(simpleDelegates.Count)
13 Dim sd = simpleDelegates[i]
14 __call sd.methodPtr, sd.object, #params#
15 Next
16 End Sub
17End Class
Note: See TracBrowser for help on using the repository browser.