Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
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
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия