Delphi тип PDateTime – указатель на значение TDateTime.
System unit
type PDateTime = ^TDateTime;
Тип PDateTime – указатель на значение TDateTime.
Арифметические операции над указателями, такие как Inc, Dec могут использоваться с ним, например чтобы управлять блоком 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;
Результат
Типичный вывод программы:
Вчера: 04/01/2007
Сегодня: 05/01/2007
Завтра: 06/01/2007
Похожие функции, процедуры и команды
Dec — декремент порядковой переменной.
Inc — увеличивает порядковую переменную.
TDateTime — тип данных содержащий значение даты и времени.
