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
 



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