Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Syntaxvorschlag Methodenpointer

Uploader:RedakteurMOD
Datum/Zeit:21.01.2012 22:19:54

Function myFunc (x As Integer) As Integer
    '...
    Return x
End Function

Type myType
    dummy As Integer

    Declare Static Function myTypeFuncStatic (x As Integer) As Integer

    Declare Function myTypeFunc (x As Integer) As Integer
End Type

Function myType.myTypeFuncStatic (x As Integer) As Integer
    '...
    Return x
End Function

Function myType.myTypeFunc (x As Integer) As Integer
    '...
    Return x
End Function


'Einfacher Function-Ptr
Dim As Function (x As Integer) As Integer atMyFunc = @myFunc()
Print atMyFunc(0)

'Function-Ptr auf eine statische Methode
Dim As Function (x As Integer) As Integer atMyTypeFuncStatic = @myType.myTypeFuncStatic()
Print atMyTypeFuncStatic(1)

'Function-Ptr auf eine normale Methode
Dim As Function (x As Integer) As Integer atMyTypeFunc = @myType.myTypeFunc()
Dim As myType myTypeVar
Print atMyTypeFunc<myTypeVar>(2)

Sleep