Delphi-Help

Описание

type PDateTime = ^TDateTime;

Тип PDateTime - указатель на значение TDateTime.

Арифметические операции над указателями, такие как Inc, Dec могут использоваться с ним, например чтобы управлять блоком 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

Примечание