PureBasic Forums - English

Code: Select all

Procedure$ Str2(Value.q, Type=#PB_Quad)
  Select Type
    Case #PB_Byte
      Value = PeekB(@Value)
    Case #PB_Ascii
      Value = PeekA(@Value)
    Case #PB_Word
      Value = PeekW(@Value)
    Case #PB_Unicode
      Value = PeekU(@Value)
    Case #PB_Character
      Value = PeekC(@Value)
    Case #PB_Long
      Value = PeekL(@Value)
    Case #PB_Quad
      Value = PeekQ(@Value)
    Case #PB_Integer
      Value = PeekI(@Value)
  EndSelect
  ProcedureReturn Str(Value)
EndProcedure

Define Buffer.q

PokeW(@Buffer, 2000)
PokeB(@Buffer, 100)

Debug Str(Buffer); 1892
Debug Str2(Buffer, #PB_Byte); 100
;Debug StrU(Buffer, #PB_Character); StrU() doesnt support #PB_Character and #PB_Integer ?!