Delphi тип PExtended – вказівник на значення Extended з плаваючою комою

Delphi тип PExtended – вказівник на значення Extended з плаваючою комою.

Тип PExtended у Delphi: Збереження 3-х значень Extended у пам'яті та переміщення по них

var
  extPtr : PExtended;

begin
  // Асигнування пам'яті для трьох extended змінних
  GetMem(extPtr, 3 * SizeOf(Extended));

  // Заповнення цих змінних значеннями
  extPtr^ := 123.45;
  Inc(extPtr);
  extPtr^ := 2.9;
  Inc(extPtr);
  extPtr^ := 87654321;

  // Показ цих значень
  Dec(extPtr, 2);
  ShowMessageFmt('Значення 1 = %f',[extPtr^]);
  Inc(extPtr);
  ShowMessageFmt('Значення 2 = %f',[extPtr^]);
  Inc(extPtr);
  ShowMessageFmt('Значення 3 = %f',[extPtr^]);
end;