;
; ------------------------------------------------------------
;
;   PureBasic - Memory example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

*Buffer = AllocateMemory(1000) 

*Pointer = *Buffer
CopyMemoryString("Hello ", @*Pointer)
CopyMemoryString("World")

*LargerBuffer = ReAllocateMemory(*Buffer, 2000) ; Нужно больше памяти...
If *LargerBuffer 
  ; *NewMemoryID теперь работает с размером 2000 байт 
  ;
  Debug "Старое содержимое все еще доступно:" 
  Debug PeekS(*LargerBuffer) 
  FreeMemory(*LargerBuffer) 
Else 
  ; Изменение размера не сработало, продолжайте работать с  *MemoryID (размер 1000 байт) 
  ; 
  FreeMemory(*Buffer) 
EndIf