PureBasic Forums - English

Code: Select all

ViewMemory(*Start,End)

Code: Select all

CompilerVarSelect <Variable>
  CompilerVarCase #PB_Word
CompilerVarEndselect

Code: Select all

Macro TypeOf(var)
  If Defined(var, #PB_Constant):       Debug "constant"
  ElseIf Defined(var, #PB_Variable):   Debug "variable"
;  ElseIf Defined(var, #PB_Byte):       Debug "byte"
;  ElseIf Defined(var, #PB_Character):  Debug "character"
;  ElseIf Defined(var, #PB_Word):       Debug "word"
;  ElseIf Defined(var, #PB_Long):       Debug "long"
;  ElseIf Defined(var, #PB_Quad):       Debug "quad"
;  ElseIf Defined(var, #PB_Float):      Debug "float"
;  ElseIf Defined(var, #PB_Double):     Debug "double"
  ElseIf Defined(var, #PB_Array):      Debug "array"
  ElseIf Defined(var, #PB_LinkedList): Debug "linkedlist"
  ElseIf Defined(var, #PB_Structure):  Debug "structure"
  ElseIf Defined(var, #PB_Interface):  Debug "interface"
  Else:                                Debug "undefined"
  EndIf
EndMacro

a.l
b.f
NewList c.s()
Dim d.l(10)

TypeOf(a)
TypeOf(b)
TypeOf(c)
TypeOf(d)