type PExtended = ^Extended;
Тип PExtended - указатель на Extended значение.
Арифметические операции над указателями, такие как Inc, Dec могут использоваться с ним, например чтобы управлять блоком 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;
|