fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Pointer-Test für flo II

Uploader:	Sebastian
Datum/Zeit:	18.07.2008 15:49:10

DECLARE SUB Flo (Array() As Integer Ptr)

DECLARE SUB Olf ()



Olf

Sleep

End







SUB Olf ()

    Dim FlosPointer(1 to 4) As Integer Ptr

    Dim i As Integer

    For i = 1 to 4

        FlosPointer(i) = ALLOCATE(SizeOf(Integer))

        *FlosPointer(i) = (1234*i)

    Next i

    Flo FlosPointer()

End Sub



SUB Flo (Array() As Integer Ptr)

    Dim i As Integer

    For i = LBound(Array) To Ubound(Array)

        Print "Pointer=" & Array(i) & " => Wert=" & *Array(i)

    Next i

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.