Справочник функций и процедур Delphi: Abs

  Навигация по первой букве:

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

Abs
Функция
Предназначена для получения абсолютной величины числа (модуль) System unit
  function Abs ( Number : Numeric type ) : Numeric type;

Delphi Sources

Описание
Функция Abs возвращает абсолютную величину отрицательного или положительного числа (модуль). Это реализуется удалением отрицательного знака, если такой обнаружен.

Число может быть любым числовым типом, также может быть Variant, он будет преобразован в число. Например, Variant строку '-1.23' Abs всегда преобразовывает её в Extended.

Примечания
Abs может использоваться для "Экстремальных" величин. Например, бесконечность (смотри пример). Функция Abs просто удаляет отрицательный знак и -INF становится INF.
Похожие команды
Div  Выполняет целочисленное деление без остатка

Mod  Выполняет целочисленное деление, возвращая остаток

 
Пример кода : Иллюстрация абсолютных значений различных типов данных
var
  float, bigFloat : single;
  int : Integer;
  varVar : Variant;

begin
  float    := -1.5;       // Маленькое отрицательное число с плавающей точкой
  bigFloat := -4.56E100;  // Бесконечное отрицательное число с плавающей точкой
  int      := -7;         // Отрицательное целое число
  varVar   := '-98';      // Variant преобразуется в число с плавающей точкой!

  ShowMessage('Abs(float) = '+FloatToStr(Abs(float)));
  ShowMessage('Abs(bigFloat) = '+FloatToStr(Abs(bigFloat)));
  ShowMessage('Abs(int) = '+FloatToStr(Abs(int)));

  // Variant преобразуется в Extended тип с плавающей точкой
  float := Abs(varVar);
  ShowMessage('Abs(varVar) = '+FloatToStr(float));
end;
Abs(float) = 1.5
Abs(bigFloat) = INF
Abs(int) = 7
Abs(varVar) = 98
 


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

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

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

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

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

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

Canvas Drawing

 

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

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