Delphi тип PCurrency – указатель на значение Валюты (Currency).
System unit
type PCurrency = ^Currency;
Тип PCurrency – указатель на значение Валюты.
Арифметические операции над указателями, такие как Inc, Dec могут использоваться с ним, например чтобы управлять блоком значений Валют (Currency), как показано в примере.
Тип PCurrency в Delphi: Хранение 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
Похожие функции, процедуры и команды
Currency — тип с плавающей запятой с 4 десятичными числами, используемыми для финансовых значений.
Dec — декремент порядковой переменной.
Inc — увеличивает порядковую переменную.
