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 — збільшує порядкову змінну.