PDateTime
Тип
Указатель на значение TDateTime
System unit
type PDateTime = ^TDateTime;
Описание
Тип 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
Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")