Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: PExtended
PExtended
|
type PExtended = ^Extended; |
Тип (Unit System)
|
Указатель на значение Extended с плавающей запятой
|
Описание:
|
Тип PExtended - указатель на Extended значение. Арифметические операции над указателями, такие как Inc, Dec могут использоваться с ним, например чтобы управлять блоком Extended значений, как показано в примере. |
Пример кода: Сохранение 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 |