PureBasic Forums - English

Code: Select all

Define (*)Pointer.String = AllocateMemory(SizeOf(String))

Pointer\s = "Hello, World!"

Debug Pointer

Code: Select all

DataSection 
  label:
    Data.l ?label_2
  label_2:
    Data.s "Hello, World!"
EndDataSection

Debug (?label).String\s ;/ Give "Hello, World!"

Code: Select all

MacroX List "NewXArray" name.StructureName(Elements) ;/ Create a list of Elements
  Code: ;/ the intern Macro-Code
    Macro name(useElements)
      (name+(SizeOf(StructureName)*useElements)).StructureName
    EndMacro
  
  Free: ;/ by 'End' call
    FreeMemory(name)
  
  Return: ;/ return of the Macro
    (*)name.StructureName = AllocateMemory(SizeOf(StructureName)*(Elements + 1))
EndMacroX

Define NewXArray MyArray.String(1) ;Define (*)MyArray.String = AllocateMemory(SizeOf(String)*(1 + 1))

MyArray(0)\s = "Hello" ; (MyArray+(SizeOf(String)*0)).String
MyArray(1)\s = "World" ; (MyArray+(SizeOf(String)*1)).String

End 1 ; FreeMemory(MyArray)