fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Pointer-Test für flo

Uploader:	Sebastian
Datum/Zeit:	18.07.2008 15:44:42

DECLARE SUB Flo (Array() As Integer Ptr)





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()



Sleep

End





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.