fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Jojopointer

Uploader:	Sebastian
Datum/Zeit:	23.12.2008 01:33:33

Type prototype

    subtune_start As Integer Ptr

    foo As Integer

End Type



Declare Sub UnloadMusic(tune As prototype Ptr)



Dim tune As prototype



tune.subtune_start = Allocate(Len(Integer))



Dim Shared bar As prototype Ptr



bar = @tune

Print tune.foo

UnloadMusic @tune

Print tune.foo

Sleep



Sub UnloadMusic(tune As prototype Ptr)

    Print tune->subtune_start

    Print bar->subtune_start

    tune->foo += 1

    DeAllocate(tune->subtune_start)

End Sub

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.