Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Как получить размер текстового файла, не открывая его
Категория: Файловая система
Категория: Файловая система
Переключение раскладки клавиатуры
Категория: Приложение
Категория: Приложение
Упаковать *.mdb-файл
Категория: Базы данных
Категория: Базы данных
Компоненты Panel, GroupBox, Bevel, ScrollBox, Splitter
Категория: Компоненты
Категория: Компоненты
Дата изменения файла
Категория: Файловая система
Категория: Файловая система
Затенение компонента определенным цветом
Категория: Компоненты
Категория: Компоненты
Форма всегда наверху
Категория: Компоненты
Категория: Компоненты
Компоненты TabControl, PageControl, TabSet, TabbedNoteBook, NoteBook
Категория: Компоненты
Категория: Компоненты
Создать таблицу ABS (AbsoluteDB)
Категория: Базы данных
Категория: Базы данных
Определение размера файла
Категория: Файловая система
Категория: Файловая система
Delphi - Справочник: Abs
Abs
|
function Abs ( Number : Numeric type ) : Numeric type; |
Функция (Unit System)
|
Предназначена для получения абсолютной величины числа (модуль)
|
Описание:
|
Функция Abs возвращает абсолютную величину отрицательного или положительного числа (модуль). Это реализуется удалением отрицательного знака, если такой обнаружен. Число может быть любым числовым типом, также может быть Variant, он будет преобразован в число. Например, Variant строку '-1.23' Abs всегда преобразовывает её в Extended. |
Пример кода: Иллюстрация абсолютных значений различных типов данных
|
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 |