Delphi тип PExtended – указатель на значение Extended с плавающей запятой.
System unit
type PExtended = ^Extended;
Тип PExtended – указатель на Extended значение.
Арифметические операции над указателями, такие как Inc, Dec могут использоваться с ним, например чтобы управлять блоком Extended значений, как показано в примере.
Тип PExtended в Delphi: Сохранение 3-х значений Extended в памяти и перемещение по ним
var
extPtr : PExtended;
begin
// Ассигнование памяти для трёх extended переменных
GetMem(extPtr, 3 * SizeOf(Extended));
// Заполнение этих переменных значениями
extPtr^ := 123.45;
Inc(extPtr);
extPtr^ := 2.9;
Inc(extPtr);
extPtr^ := 87654321;
// Показ этих значений
Dec(extPtr, 2);
ShowMessageFmt('Значение 1 = %f',[extPtr^]);
Inc(extPtr);
ShowMessageFmt('Значение 2 = %f',[extPtr^]);
Inc(extPtr);
ShowMessageFmt('Значение 3 = %f',[extPtr^]);
end;
Результат
Значение 1 = 123.45
Значение 2 = 2.90
Значение 3 = 87654321.00
Похожие функции, процедуры и команды
Dec — декремент порядковой переменной.
Extended — тип с плавающей запятой обладающий самой высокой точностью и вместимостью.
Inc — увеличивает порядковую переменную.
