|
Last change
on this file since 338 was 338, checked in by dai, 17 years ago |
|
静的リンクライブラリ、デバッグ情報の内部形式をバイナリにした（コンパイル時間が短縮されました）。
デリゲートのベースを実装中（まだ動きません）
|
|
File size:
348 bytes
|
| Rev | Line | |
|---|
| [338] | 1 | Class Delegate #name#
|
|---|
| 2 | Inherits System.DelegateBase
|
|---|
| 3 |
|
|---|
| 4 | Public
|
|---|
| 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
|
|---|
| 17 | End Class
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
