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
 



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