Справочник функций и процедур Delphi: PExtended
  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z
  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

PExtended
Тип		 Указатель на значение Extended с плавающей запятой System unit
  type PExtended = ^Extended;

Delphi Sources

Описание
Тип PExtended - указатель на Extended значение.

Арифметические операции над указателями, такие как Inc, Dec могут использоваться с ним, например чтобы управлять блоком Extended значений, как показано в примере.
Похожие команды
Dec  Декремент порядковой переменной

Extended  Тип с плавающей запятой обладающий самой высокой точностью и вместимостью

Inc  Увеличивает порядковую переменную

  
Пример кода : Сохранение 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
 


Последние добавленные на сайт исходники

DeLiKaTeS Tetris (Тетрис)

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker
 

Айболит (remote control)

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений
 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте