Здравствуйте, AMogil, Вы писали:

AM>Здравствуйте, mlecter, Вы писали:

M>>Здравствуйте, AMogil, Вы писали:

AM>>>>Алексей.

AM>>>Она округляет до большего, т.е. для положительных чисел все делает как мы привыкли.

AM>>>Алексей.

M>>Не до большего, а до ближайшего четного.
M>>1.345 -> 1.34
M>>1.355 -> 1.36

M>>"Мы" так не привыкли

AM>Пример из справки Delphi

AM>Expression Value

AM>SimpleRoundTo(1234567, 3) 1234000
AM>SimpleRoundTo(1.234, -2) 1.23 !!!!!!!
AM>SimpleRoundTo(1.235, -2) 1.24
AM>SimpleRoundTo(-1.235, -2) -1.23

AM>И техт:

AM>SimpleRoundTo uses asymmetric arithmetic rounding to determine how to round values that are exactly midway between the two values that have the desired number of significant digits. This method always rounds to the larger value.

Попробуйте

SetRoundMode(rmDown);