Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 377

•  TDictionary Custom Sort  6 414

•  Fast Watermark Sources  6 198

•  3D Designer  9 154

•  Sik Screen Capture  6 531

•  Patch Maker  6 934

•  Айболит (remote control)  6 916

•  ListBox Drag & Drop  5 799

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

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

•  Рисование по маске  6 443

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

•  Canvas Drawing  5 669

•  Рисование Луны  5 379

•  Поворот изображения  4 920

•  Рисование стержней  3 505

•  Paint on Shape  2 765

•  Генератор кроссвордов  3 635

•  Головоломка Paletto  2 933

•  Теорема Монжа об окружностях  3 738

•  Пазл Numbrix  2 466

•  Заборы и коммивояжеры  3 149

•  Игра HIP  2 108

•  Игра Go (Го)  2 037

•  Симулятор лифта  2 400

•  Программа укладки плитки  2 095

•  Генератор лабиринта  2 552

•  Проверка числового ввода  2 240

•  HEX View  2 564

•  Физический маятник  2 181

 
скрыть

  Форум  

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

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



Delphi Sources

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



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

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

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

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

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

RoundNext(10, 3) // = 12
RoundNext(9, 3) // = 12







Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

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