Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 725

Раздел: Delphi » Прочее
/ вопрос открыт /

Приветствую, уважаемые эксперты! Прошу вашей помощи.возникла проблема. Сам разобраться не могу что не так. Выскакивает ошибка is not a valid floating point value. Код и условие в прикреплённом файле.

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

mamont Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: mamont (статус: Посетитель)
Вопрос отправлен: 25 июня 2008, 00:04
Состояние вопроса: открыт, ответов: 3.

Ответ #1. Отвечает эксперт: Мережников Андрей

Здравствуйте, mamont!
Данная ошибка, скорее всего, у Вас возникает при выполнении функции StrToFloat. Происходит это из-за того, что вместо десятичной точки вводится запятая. Сделайте следующее:
1)Добавьте в список uses модуль StrUtils; 2) в процедурах, где используется функция StrToFloat объявите переменную типа string, например ss;3)перед вызовом функции StrToFloat вставьте следующие строки:
ss:=<значение для преобразования> (например:ss:=stringgrid1.Cells[i-1,j-1];
4)Далее вставьте еще пару строк:ss:=AnsiReplaceStr(ss,',',decimalseparator); ss:=AnsiReplaceStr(ss,'.',decimalseparartor);

после этого Ваша строка:x[i,j]:=strtofloat(ss);

Ответ отправил: Мережников Андрей (статус: Абитуриент)
Время отправки: 25 июня 2008, 04:52

Ответ #2. Отвечает эксперт: Шичко Игорь

Здравствуйте, mamont!
По моему мнению ошибка возникает в цикле:
for i:=1 to 25 do
begin
for j:=1 to 4 do
begin
x[i,j]:=strtofloat(stringgrid1.Cells[i-1,j-1]); // ошибка если stringgrid1.Cells[i-1,j-1] = ''
end;
end;
Пустые значения ячеек Stringrid1 Delphi не может преобразовать в значение типа Float
Поэтому при заполнении массива x[i,j] необходимо ввести проверку типа
if stringgrid1.Cells[i-1,j-1] > '' then ...

Ответ отправил: Шичко Игорь (статус: 9-ый класс)
Время отправки: 25 июня 2008, 08:00

Ответ #3. Отвечает эксперт: Dron

Здравствуйте, mamont!
Проблемы с плавающей точкой решаются гораздо проще. При запуске программы (например в Form.OnCreate) достаточно написать:

DecimalSeparator:=',';
Теперь разделителем целой и дробной части в вещественных числах будет считаться запятая. Осталось только позаботиться о том, чтобы везде были запятые.
Ну а если вместо числа может быть введено что угодно - заключить StrToFloat в try..except.

Ответ отправил: Dron (статус: Студент)
Время отправки: 25 июня 2008, 10:08


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 12 декабря 2017, 21:08
Выполнено за 0.03 сек.
Рейтинг@Mail.ru