| Описание |
Тип PDateTime - указатель на значение TDateTime.
Арифметические операции над указателями, такие как Inc, Dec могут использоваться с ним, например чтобы управлять блоком TDateTime значений, как показано в примере.
|
|
| Похожие команды |
Dec Декремент порядковой переменной
Inc Увеличивает порядковую переменную
TDateTime Тип данных содержащий значение даты и времени
| |
|
| Пример кода : Сохранение 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
|
|
