Delphi-Help

PExtended

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

PExtended

Описание

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;

Значение 1 = 123.45
Значение 2 = 2.90
Значение 3 = 87654321.00

Примечание

 

 

Авторизация



Счетчики