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
 


Оплата за обучение в Kata Academy только после твоего трудоустройства в IT, начни карьеру Middle Java-разработчика



Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки? Slurm подготовили для вас особенный продукт!





форум программистов


© Форум Delphi  |  Форум Pascal   |  Блог программистов   |  Исходники Delphi   |  Автор сайта  |  Ссылки   |  Английская версия