ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Загадка
25 сообщений из 32, страница 1 из 2
  1  все
Загадка
    #39559421
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
Пишем так
Код: pascal
1.
2.
3.
          DrawThemeBackground(Theme, Canvas.Handle, TTP_BALLOONSTEM,
            TTBSS_POINTINGDOWNLEFTWALL, SplitRect(ClientRect, srBottom,
             cBalloonStemHeight + round(11 * Screen.PixelsPerInch / 96)), @MeasureRect)



работает неправильно.
Пишем так

Код: pascal
1.
2.
3.
          DrawThemeBackground(Theme, Canvas.Handle, TTP_BALLOONSTEM,
            TTBSS_POINTINGDOWNLEFTWALL, SplitRect(ClientRect, srBottom,
             cBalloonStemHeight + round(11 * 96 / 96)), @MeasureRect)


Работает правильно. При этом Screen.PixelsPerInch в отладчике = 96.
Ок, пишем так:

Код: pascal
1.
2.
3.
4.
5.
6.
var n: integer;
...
 n := 96;
          DrawThemeBackground(Theme, Canvas.Handle, TTP_BALLOONSTEM,
            TTBSS_POINTINGDOWNLEFTWALL, SplitRect(ClientRect, srBottom,
             cBalloonStemHeight + round(11 * n / 96)), @MeasureRect)


И снова работает неправильно.
...
Рейтинг: 0 / 0
25.11.2017, 16:09:25
| Ответить | Цитировать | Написать  
Загадка
    #39559427
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
asviridenkov,

Если посмотреть в исходники, то там AFAIR используется
Код: pascal
1.
MulDiv(11, Screen.PixelsPerInch, 96)


Видимо, не просто так.
...
Рейтинг: 0 / 0
25.11.2017, 16:21:53
| Ответить | Цитировать | Написать  
Загадка
    #39559430
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
asviridenkov,

Подозреваю, это из-за того что 11 * 96 / 96 - константа, вычисляемая компилятором, а всё остальное выражение, которое вычисляется в рантайм с какой-то точностью (не знаю к чему он по-умолчанию приводит - Real/Single?). Вот эта точность + Round и приводит к неожиданным результатам.
...
Рейтинг: 0 / 0
25.11.2017, 16:25:25
| Ответить | Цитировать | Написать  
Загадка
    #39559431
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
alekcvpasviridenkov,

Подозреваю, это из-за того что 11 * 96 / 96 - константа, вычисляемая компилятором, а всё остальное выражение, которое вычисляется в рантайм с какой-то точностью (не знаю к чему он по-умолчанию приводит - Real/Single?). Вот эта точность + Round и приводит к неожиданным результатам.

Так там вокруг round стоит, так что точность вычисления не должна влиять.
...
Рейтинг: 0 / 0
25.11.2017, 16:29:35
| Ответить | Цитировать | Написать  
Загадка
    #39559434
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
asviridenkovТак там вокруг round стоит, так что точность вычисления не должна влиять.
А отладчик что показывает на выражении round(11 * Screen.PixelsPerInch / 96) ?
...
Рейтинг: 0 / 0
25.11.2017, 16:40:57
| Ответить | Цитировать | Написать  
Загадка
    #39559439
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
alekcvp,

11 показывает
...
Рейтинг: 0 / 0
25.11.2017, 17:02:45
| Ответить | Цитировать | Написать  
Загадка
    #39559440
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
asviridenkov,

Тогда что именно не работает?
...
Рейтинг: 0 / 0
25.11.2017, 17:07:43
| Ответить | Цитировать | Написать  
Загадка
    #39559472
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
alekcvpasviridenkov,

Тогда что именно не работает?

Этот код работает совершенно по-разному, в первом случае стрелка у хинта есть, во втором нет, хотя казалось бы результат должен быть идентичным.
...
Рейтинг: 0 / 0
25.11.2017, 18:56:53
| Ответить | Цитировать | Написать  
Загадка
    #39559478
Freedoom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Freedoom
Гость
asviridenkovЭтот код работает совершенно по-разному, в первом случае стрелка у хинта есть, во втором нет, хотя казалось бы результат должен быть идентичным.
Во втором варианте round - константа, в первом и третьем - вычисление с приведением различных типов. Выделите отдельной строкой SplitRect и посмотрите в отладчике (окно assembler) какой код генерируется компилятором. Думаю после этого вопросов не останется.
...
Рейтинг: 0 / 0
25.11.2017, 19:23:16
| Ответить | Цитировать | Написать  
Загадка
    #39559480
Сергей N
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей N
Гость
При использовании round имейте в виду, что эта функция производит округление по банковским правилам, где точная половина значения вызывает округление к четному числу (2.5 -> 2, 3.5 -> 4). Функция MulDiv работает с целыми числами и всегда округляет до ближайшего целого (2.5 -> 3, 3.5 -> 4).
...
Рейтинг: 0 / 0
25.11.2017, 19:34:32
| Ответить | Цитировать | Написать  
Загадка
    #39559483
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
FreedoomВо втором варианте round - константа, в первом и третьем - вычисление с приведением различных типов. Выделите отдельной строкой SplitRect и посмотрите в отладчике (окно assembler) какой код генерируется компилятором. Думаю после этого вопросов не останется.

Уже теплее)) А не глядя в отладчик можете угадать причину?
...
Рейтинг: 0 / 0
25.11.2017, 20:07:53
| Ответить | Цитировать | Написать  
Загадка
    #39559484
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
Сергей NПри использовании round имейте в виду, что эта функция производит округление по банковским правилам, где точная половина значения вызывает округление к четному числу (2.5 -> 2, 3.5 -> 4). Функция MulDiv работает с целыми числами и всегда округляет до ближайшего целого (2.5 -> 3, 3.5 -> 4).

Тем не менее, в обоих случаях round возвращает ровно 11. Так что дело не в округлении.
...
Рейтинг: 0 / 0
25.11.2017, 20:08:45
| Ответить | Цитировать | Написать  
Загадка
    #39559486
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
asviridenkov> А не глядя в отладчик можете угадать причину?

Типы разные что ли?
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.11.2017, 20:15:48
| Ответить | Цитировать | Написать  
Загадка
    #39559487
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
Гаджимурадов Рустамasviridenkov> А не глядя в отладчик можете угадать причину?

Типы разные что ли?


Типы чего? И как это влияет?
...
Рейтинг: 0 / 0
25.11.2017, 20:16:31
| Ответить | Цитировать | Написать  
Загадка
    #39559488
fd00ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fd00ch
Участник
asviridenkovИ как это влияет?очевидно, на выбор перегруженной функции
Код: pascal
1.
2.
    function SplitRect(SplitType: TSplitRectType; Size: Integer): TRect; overload;
    function SplitRect(SplitType: TSplitRectType; Percent: Double): TRect; overload;
...
Рейтинг: 0 / 0
25.11.2017, 20:23:15
| Ответить | Цитировать | Написать  
Загадка
    #39559489
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
fd00chasviridenkovИ как это влияет?очевидно, на выбор перегруженной функции
Код: pascal
1.
2.
    function SplitRect(SplitType: TSplitRectType; Size: Integer): TRect; overload;
    function SplitRect(SplitType: TSplitRectType; Percent: Double): TRect; overload;



Приз в студию!
Но не кажется ли уважаемым донам, что сама ситуация, когда выбор функции меняется в зависимости от того что находится внутри round, не вполне здоровая?
...
Рейтинг: 0 / 0
25.11.2017, 20:25:54
| Ответить | Цитировать | Написать  
Загадка
    #39559490
fd00ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fd00ch
Участник
asviridenkovПриз в студию!вероятно, я просто первый, кто не поленился найти объявления этих функций
...
Рейтинг: 0 / 0
25.11.2017, 20:28:05
| Ответить | Цитировать | Написать  
Загадка
    #39559493
fd00ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fd00ch
Участник
asviridenkovНо не кажется ли уважаемым донам, что сама ситуация, когда выбор функции меняется в зависимости от того что находится внутри round, не вполне здоровая?вообще, на баг похоже. интересно, что на Seattle я в случае сложения с константой так и не смог добиться вызов integer-варианта вообще а вот без константы начитается веселье, как и у тебя в старт-посте
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
program Project1;

uses
 SysUtils,
 Forms   ,
 Dialogs ;

procedure Test(Value: Integer); overload;
 begin
  ShowMessage('int')
 end;

procedure Test(Value: Double); overload;
 begin
  ShowMessage('dbl')
 end;

const
 cValue: Integer = 123;
begin
  Test(cValue + Round(11 * Screen.PixelsPerInch / 96));
  Test(cValue + Round(11 * 96 / 96));

  Test(Round(11 * Screen.PixelsPerInch / 96));
  Test(Round(11 * 96 / 96));
end.
...
Рейтинг: 0 / 0
25.11.2017, 20:38:17
| Ответить | Цитировать | Написать  
Загадка
    #39559500
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
fd00ch,

так cValue то у тебя не константа, по факту она переменная
...
Рейтинг: 0 / 0
25.11.2017, 21:01:29
| Ответить | Цитировать | Написать  
Загадка
    #39559505
fd00ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fd00ch
Участник
asviridenkov, по факту у нее точно задан тип)) в "краткой" записи появляется возможность порассуждать, имеет ли компилятор право принять ее за Double
...
Рейтинг: 0 / 0
25.11.2017, 21:12:39
| Ответить | Цитировать | Написать  
Загадка
    #39559506
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
asviridenkovНо не кажется ли уважаемым донам, что сама ситуация, когда выбор функции меняется в зависимости от того что находится внутри round, не вполне здоровая?Нет, не кажется.
...
Рейтинг: 0 / 0
25.11.2017, 21:16:32
| Ответить | Цитировать | Написать  
Загадка
    #39559507
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
makhaon
Участник
Можно немного помочь компилятору, будет нормально:
Код: pascal
1.
2.
3.
4.
5.
 Test(Integer(cValue + Round(11 * Screen.PixelsPerInch / 96)));
 Test(Integer(cValue + Round(11 * 96 / 96)));

 Test(Integer(Round(11 * Screen.PixelsPerInch / 96)));
 Test(Integer(Round(11 * 96 / 96)));


Косячок, конечно:
Код: pascal
1.
2.
function SplitRect(SplitType: TSplitRectType; Size: Integer): TRect; overload;
function SplitRect(SplitType: TSplitRectType; Percent: Double): TRect; overload;
...
Рейтинг: 0 / 0
25.11.2017, 21:17:07
| Ответить | Цитировать | Написать  
Загадка
    #39559508
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
Гаджимурадов РустамasviridenkovНо не кажется ли уважаемым донам, что сама ситуация, когда выбор функции меняется в зависимости от того что находится внутри round, не вполне здоровая?Нет, не кажется.

Ну, разверни свою мысль. То есть тебя устраивает, что ты должен точно следить, что будет внутри round, константа или значение, несмотря на то, что round то нифига не overloaded и на то что вовне ее, параметр влиять никак не должен.
...
Рейтинг: 0 / 0
25.11.2017, 21:19:23
| Ответить | Цитировать | Написать  
Загадка
    #39559511
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
makhaon,

с помощью то все понятно, более того я бы "понял и простил" если бы в обоих случаях вызывался double вариант. Но вот то, что вызовы получаются разные, на мой взгляд недопустимо.
...
Рейтинг: 0 / 0
25.11.2017, 21:20:49
| Ответить | Цитировать | Написать  
Загадка
    #39559514
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД
Участник
asviridenkov... round то нифига не overloaded и на то что вовне ее, параметр влиять никак не должен.
А ROUND() - это настоящая функция или тоже из "чЮдес Delphi"?
...
Рейтинг: 0 / 0
25.11.2017, 21:27:51
| Ответить | Цитировать | Написать  
25 сообщений из 32, страница 1 из 2
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Загадка
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39559486&tid=2041520]:
 0ms
get settings:
 6ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 31ms
get topic data:
 12ms
get forum data:
 4ms
get page messages:
 74ms
get tp. blocked users:
 2ms
others: 227ms
total:  379ms
созд. / загр.: 379ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]