|
Вопрос # 1 725/ вопрос открыт / |
|
Приветствую, уважаемые эксперты! Прошу вашей помощи.возникла проблема. Сам разобраться не могу что не так. Выскакивает ошибка is not a valid floating point value. Код и условие в прикреплённом файле.
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
 |
Вопрос задал: 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
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
