PureBasic Forums - English

Code: Select all

Procedure FillMemory_(_memory_, _size_, _value_=0, _type_=#PB_Byte)
  FillMemory(_memory_, _size_, _value_, _type_)
EndProcedure

Macro FillMemory(_memory_, _size_, _value_=0, _type_=#PB_Byte)
  CompilerIf (_type_ = #PB_Character)
    CompilerIf (SizeOf(Character) = 1)
      FillMemory_(_memory_, _size_, _value_, #PB_Byte)
    CompilerElse
      FillMemory_(_memory_, _size_, _value_, #PB_Word)
    CompilerEndIf
  CompilerElse
    FillMemory_(_memory_, _size_, _value_, _type_)
  CompilerEndIf
EndMacro


*mem = AllocateMemory(8)
FillMemory(*mem, 8, 'A', #PB_Character)

For i = 0 To 7 Step SizeOf(Character)
  Debug Chr(PeekC(*mem+i))
Next

Code: Select all

*Buffer = AllocateMemory((#LLHHX+SizeOf(Character)) * SizeOf(Character))
CompilerIf #PB_Compiler_Unicode
    FillMemory(*Buffer, #LLHHX * SizeOf(Character), PeekC(@""), #PB_Word)
CompilerElse
    FillMemory(*Buffer, #LLHHX * SizeOf(Character), PeekC(@""), #PB_Byte)
CompilerEndIf