Справочник функций и процедур Delphi: PCurrency

  Навигация по первой букве:

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

PCurrency
Тип
Указатель на значение Валюты (Currency) System unit
  type PCurrency = ^Currency;

Google  
 
Описание
Тип 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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook