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
PCurrency
Тип
Указатель на значение Валюты (Currency) System unit
  type PCurrency = ^Currency;
Описание
Тип PCurrency - указатель на значение Валюты.

Арифметические операции над указателями, такие как Inc, Dec могут использоваться с ним, например чтобы управлять блоком значений Валют (Currency), как показано в примере.
Похожие команды
Currency  Тип с плавающей запятой с 4 десятичными числами, используемыми для финансовых значений

Dec  Декремент порядковой переменной

Inc  Увеличивает порядковую переменную

 
Пример кода : Хранение 3-х значений Валюты в памяти и навигация по ним
var
  currPtr : PCurrency;

begin
  // Ассигнование памяти для трёх переменных currency
  GetMem(currPtr, 3 * SizeOf(Currency));

  // Заполнение этих переменных
  currPtr^ := 123.45;
  Inc(currPtr);
  currPtr^ := 2.9;
  Inc(currPtr);
  currPtr^ := 87654321;

  // Показ этих значений
  Dec(currPtr, 2);
  ShowMessageFmt('Currency 1 = %m',[currPtr^]);
  Inc(currPtr);
  ShowMessageFmt('Currency 2 = %m',[currPtr^]);
  Inc(currPtr);
  ShowMessageFmt('Currency 3 = %m',[currPtr^]);
end;
Currency 1 = $123.45
Currency 2 = $2.90
Currency 3 = $87,654,321.00
 



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