Delphi тип PDateTime – вказівник на значення TDateTime

Delphi тип PDateTime – вказівник на значення TDateTime.

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

var
  dateTimePtr : PDateTime;
  a : TDateTime;

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

  // Заповнення цих змінних значеннями
  dateTimePtr^ := Yesterday;
  Inc(dateTimePtr);
  dateTimePtr^ := Date;
  Inc(dateTimePtr);
  dateTimePtr^ := Tomorrow;

  // Показ цих значень
  Dec(dateTimePtr, 2);
  ShowMessage('Вчора = '+DateToStr(dateTimePtr^));
  Inc(dateTimePtr);
  ShowMessage('Сьогодні = '+DateToStr(dateTimePtr^));
  Inc(dateTimePtr);
  ShowMessage('Завтра = '+DateToStr(dateTimePtr^));
end;