|
|
| Другие темы раздела | |
|
Delphi Как узнать натуральное число или нет?
https://www.cyberforum.ru/ delphi-beginners/ thread464185.html Мне надо как-то узнавать натуральное число или нет. Как это можно сделать? |
Delphi Вертикальный текст в TLabel Кто знает, как можно сделать вертикальный текст в TLabel? |
|
Delphi DLL для работы с 64-разрядными целыми числами
https://www.cyberforum.ru/ delphi-beginners/ thread463973.html Подскажите DLL для работы с 64-разрядными целыми числами (интересуют операции сложения и вычитания). Спасибо! |
Delphi Работа с If..Then Не работает IF...THEN. Что за ерунда такая? В книгах ответа не нашел. мой E-mail: egorjan@e-mail.ru https://www.cyberforum.ru/ delphi-beginners/ thread463950.html |
|
Delphi Ошибка Incompatible types: 'String' and 'Integer' В чём ошибка??? reg:=TRegistry.Create; reg.RootKey:=HKEY_USERS; if reg.OpenKeyReadOnly('.DEFAULTControl PanelDesktopWindowMetrics') then if reg.ValueExists('MinAnimate') then if reg.ReadString('MinAnimate')= 1 then (Вот тут пишет Incompatible types: 'String' and 'Integer') Checkbox30.checked:= true else Checkbox30.checked:= false else Checkbox30.checked:= false;И ещё... |
Delphi Как сделать возврат функцией (или процедурой) массива Ниже приведенный код не работает: function GetArrContents1(): array of integer; var a1: array of integer; begin Result := a1; end; Есть какие-нибудь идеи? https://www.cyberforum.ru/ delphi-beginners/ thread463746.html |
|
Delphi Получение значений параметров в дистрибутиве InstallShield Express...
https://www.cyberforum.ru/ delphi-beginners/ thread463729.html Господа ! Не подскажете ли как сделать дистрибутив при помощи InstallShield Express (или другого средства, с помощью которого можно без проблем добавить в дистрибутив установку BDE) такой, который умеет запрашивать параметры и прописывать их или в реестре или в ини файле? |
Delphi Autorun. Как сделать невилимую форму с видимыми компонентами? Если кто подскажет как заставить Delphi делать форму прозрачной, или невидимой, но с доступными компонентами - буду очень признателен. |
| Delphi Как сделать Select слова из DBMemo? Пробовал LIKE неполучается https://www.cyberforum.ru/ delphi-beginners/ thread463544.html | Delphi Отображение и ввод текстовой и графической информации С помощью какого компонента можно осуществить вышеозначенное? Спасибо https://www.cyberforum.ru/ delphi-beginners/ thread463454.html |
|
Метод с Out-параметрами в Com/DCom Delphi Есть внешний DCom_сервер. При попытке создать метод с Out-параметрами среда выдает ошибку 'Out parameters requires pointer type' |
Delphi Как прочитать индекс элемента дерева, под которым он зарегестрирован в TreeView? Короче TreeView заполняется из БД. Бд постоянно изменяется. Как быть??? Чтобы попроще и побыстрее. Главная проблема - это как прочитать индекс элемента дерева под которым он зарегестрирован в TreeView. Как сделать это? А может общую идею подскажете? или есть мысли Всем огромное спасибо за внимание!! https://www.cyberforum.ru/ delphi-beginners/ thread462956.html |
|
1 / 1 / 0
Регистрация: 20.11.2007
Сообщений: 72
|
|
| 0 | |
Глюки при округлении числа в Delphi5! - Delphi - Ответ 257996621.01.2008, 18:00. Показов 3178. Ответов 8
Метки (Все метки)
Написал функцию округления : Вот пример при трассировке функции fRound(16.095,2) function fRound( n: double;//округляемое число nn: integer//до скольких знаков округляем ): double; var v: extended; vv: extended; vvv: extended; begin v:=StrToFloat(FloatToStr(n)); --трассировка v=16.095 vv:=Power(10,nn); --трассировка vv=100 vvv:=Int(v*vv); --трассировка vvv=1609 --трассировка v*vv-vvv=0.5 if v*vv-vvv>=0.5 then v:=(vvv+1)/vv else --трассировка НО УСЛОВИЕ НЕ СРАБАТЫВАЕТ И ПОПАДАЕТ СЮДА v:=vvv/vv; --трассировка v=16.09 //а должен быть 16.10 result:=v; end; Проблема говорят известная и уже решенная подскажите что делать? Вернуться к обсуждению: Глюки при округлении числа в Delphi5! Delphi
0
|
|
| 21.01.2008, 18:00 | |
|
Готовые ответы и решения:
8
Ошибка при округлении
Ошибка при округлении чисел Погрешность при вычислении и округлении |
| 21.01.2008, 18:00 | |
| 21.01.2008, 18:00 | |
|
Помогаю со студенческими работами здесь
0
Глюки, опять глюки, и Яша иже с ними. Delphi5 UTF8 Delphi5 и Unicode |