fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Pointergewusel geht nicht?!

Uploader:	Jojo
Datum/Zeit:	23.12.2008 01:29:27

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

UnloadMusic @tune

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.