VPF::RoundTo вызывает ошибку - Форум программистов

ZufuS

Дата 19.12.2006, 16:39 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 237
Регистрация: 12.7.2006

Репутация: нет
Всего: нет

Код


StringGrid1.Cells[2,i+1] := FloatToStr(RoundTo(Vy[i],-2));

В этом месте иногда появляется ошибка. Когда ввожу числа до 2х-3х десятков(по-разному бывает) - всё нормально. А если ввести например 40 или более появится ошибка и засветится эта строка. Ошибка Project Project1.exe raised exception class EInvalidOp with message 'Invalid floating point operation'. Устроит и другая функция.
P.S. можно ли одним методом или свойством выровнять текст ячеек TStingGrid'a по центру?

Snowy

Дата 19.12.2006, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Потому что ты превышаешь размер, допустимый для типа float.
Не влезает в него такое значение smile

dimazu

Дата 19.12.2006, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 4.3.2006

Репутация: 4
Всего: 5

Проверять надо размер - это точно, а вообще лучше, по-моему, использовать FloatToStrDef.

ЗЫ. А зачем RoundTo, ведь можно просто написать

Код


 StringGrid1.Cells[2,i+1] := FormatFloat('0.00', Vy[i])

Это сообщение отредактировал(а) dimazu - 19.12.2006, 17:15

ZufuS

Дата 19.12.2006, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 237
Регистрация: 12.7.2006

Репутация: нет
Всего: нет

dimazu, благодарю

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »