разный результат при разном событии

[nusya24]

если в собитии кнопки OnClick

вставить строку

ShowMessage(CurrToStr(RoundTo(144.375,-2)));

то при нажатии на кнопку указателем мыши

будет возвращаться результат 144,37 (что в общемто не правильно по правилам округления)

но стоит нажать пробел или интер, когда фокус находится на кнопке либо на кнопке сообщения,

то результат всегда будет возвращаться 144,38

[Форматцевт]

nusya24: насколько я помню CurrToStr отсекает, а не округляет, а об остально сказать не могу ...давно было.

[Siberex]

CurrToStr в действительности только переводит число в текст, а вот RoundTo - округляет.

О каком языке программирования речь?

[nusya24]

О каком языке программирования речь?

Delphi 7

на самом деле чтобы этого не было необходимо

в модуле Math

в функции roundto

тип double

поменять на тип currency

после этого перекомпить иодуль

и заменить старые math.dcu

на новые

и проблема исчезнет

но я так и не понял связь мыши и клавиатуры