SysReallocMem, функция

Синтаксис

function SysReallocMem(P:  Pointer;  NewSize:   Integer):  Pointer;

Описание

Ошибки

Советы и приемы

Пример

// Пояснения по этому менеджеру памяти приведечы в описании процедуры
// SetMemoryManager.
// Функция GuardsAreOkay рассмотрена в описании функции SysFreeMem.
// Функция RoundUpSize рассмотрена в описании функции SetMemoryManager.

// Повторное выделение блока с новым размером.  Возвращает указатель
// на новый блок памяти или nil в случае неудачи.
function DebugRealloc(Mem: Pointer; Size: Integer): Pointer;
var
  PArray:  PIntegerArray;
begin
  // Получение указателя на истинное начало блока памяти.
  PArray := PIntegerArray(PChar(Mem) - GuardSize);

  if not GuardsAreOkay(PArray, False) then
     ReportError(2); // invalid pointer

  // Округление Size до числа,   кратного размеру защитного
  Size := RoundUpSize(Size);

  PArray := SysReallocMem(PArray, Size);
  if PArray = nil then
    Result:=nil
  else
  begin
    // Запись защитных слов.
    PArray[0]  := AllocatedGuard;
    PArray[Size div GuardSize + 1] := AllocatedGuard;
    // Возвращаем указатель на область памяти, начинающуюся сразу
    // после первого защитного слова.
    Result := @PArray[1];
  end;
end;

Смотрите также

    Учебник по языку Pascal          Лабораторные работы по программированию          Справочник

---

Нет комментариев. Оставить комментарий: Ваше Имя: Email: Антибот: *   Ваш комментарий: