Процедура ReallocMem – дозволяє змінити розмір існуючого блоку пам'яті

Процедура ReallocMem в Delphi – дозволяє змінити розмір існуючого блоку пам'яті.

Процедура ReplaceDate: Розподіл використовуючи GetMem, а потім перерозподіл використовуючи ReallocMem

type
  TRecord = Record
    name : string[10];
    age  : Byte;
  end;

var
  recPointer : ^TRecord;

begin
  // Розподіліть пам'ять для 2 записів
  // Зверніть увагу: для цього краще використовувати New
  // Тут використовується лише з метою ілюстрації
  GetMem(recPointer, 2 * SizeOf(TRecord));

  // Заповнення значеннями цих 2-х записів
  recPointer.name := 'Brian';
  recPointer.age  := 23;

  Inc(recPointer);
  recPointer.name := 'Jim';
  recPointer.age  := 55;

  // Ууупс - забули додати Sally...
  Dec(recPointer);
  ReallocMem(recPointer, 3 * SizeOf(TRecord));

  // Тепер додаємо 3-й запис
  Inc(recPointer,2);
  recPointer.name := 'Sally';
  recPointer.age  := 38;

  // Тепер показуємо ці значення
  Dec(recPointer, 2);
  ShowMessageFmt('%s - %d',[recPointer.name, recPointer.age]);
  Inc(recPointer);
  ShowMessageFmt('%s - %d',[recPointer.name, recPointer.age]);
  Inc(recPointer);
  ShowMessageFmt('%s - %d',[recPointer.name, recPointer.age]);
end;