скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Округление в меньшую сторону



{ **** UBPFD *********** by delphibase.endimus.com ****
>> «Округление» в меньшую сторону

Функция возвращает наибольшее число,
меньшее или равное Value, которое
без остатка делится на Divider

Зависимости: нет
Автор:       Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright:   Dimka Maslov
Дата:        20 мая 2002 г.
***************************************************** }

function RoundPrev(Value, Divider: Integer): Integer;
asm
   mov ecx, edx
   cdq
   idiv ecx
   imul ecx
end;

Пример использования:

RoundPrev(10, 3) // = 9
RoundPrev(9, 3) // = 9





Copyright © 2004-2019 "Delphi Sources". Delphi World FAQ


ASPack

Продукт ASPack предназначен для архивации исполняемых файлов под Win32 и защиты от непрофессионального реверс-инжиниринга. ASPack позволяет уменьшать размер файлов и библиотек до 70%, что также позволяет сокращать время загрузки таких приложений в локальных сетях и Интернет.



Группа ВКонтакте   Facebook   Ссылка на Twitter