29 lines
465 B
Plaintext
29 lines
465 B
Plaintext
Public Sub Main()
|
|
|
|
RepeatIt("RepeatableOne", 2)
|
|
|
|
RepeatIt("RepeatableTwo", 3)
|
|
|
|
End
|
|
|
|
'Cannot pass procedure pointer in Gambas; must pass procedure name and use Object.Call()
|
|
Public Sub RepeatIt(sDelegateName As String, iCount As Integer)
|
|
|
|
For iCounter As Integer = 1 To iCount
|
|
Object.Call(Me, sDelegateName, [])
|
|
Next
|
|
|
|
End
|
|
|
|
Public Sub RepeatableOne()
|
|
|
|
Print "RepeatableOne"
|
|
|
|
End
|
|
|
|
Public Sub RepeatableTwo()
|
|
|
|
Print "RepeatableTwo"
|
|
|
|
End
|