3 / 3 / 1
Регистрация: 22.03.2011
Сообщений: 135
1

Floating point value

24.02.2012, 22:25. Показов 1116. Ответов 5
Метки нет (Все метки)

вот часть кода
Delphi
1
2
3
4
5
begin
html:=IdHTTP1.Get('http://m.rate.mail.ru/');
Delete(html,1,pos('<a href="currency?charcode=USD" title="Курс с 25.02: 29.4490 (-0.3202)">',html)+length('<a href="currency?charcode=USD" title="Курс с 25.02: 29.4490 (-0.3202)">')-1);
dollar:=copy(html,1,pos('<',html)-1);
EKurs.Text:=dollar;;
в итоге при выполнении, когда нажимаю подгрузить этот курс вываливается , (смотри фото)
подскажите в чем проблема.
Миниатюры
Floating point value  
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.02.2012, 22:25
Ответы с готовыми решениями:

is not floating point value
делаю калькулятор, хочу, чтобы в Edit1 выводились все мои действия в таком формате: &quot;1+2&quot;, затем...

floating point overflow
Здравствуйте. Помогите, пожалуйста, разобраться с данной проблемой, как её решить? вылетает с...

Floating point overflow
Программа компилится, но при запуске и нажатии баттона (код ниже) возникает фат. ошибка и...

Floating point division by zero
Вечер добрый, обращался с этой проблемой, но так и не разобрался. На пункте &quot;Определение потерь...

5
13084 / 5869 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
24.02.2012, 22:44 2
Это значит в региональных настройках Windows в качестве разделителя целой и дробной частей задана запятая, а не точка.
Пуск - Панель управления - Язык и Региональные стандарты - Закладка "Региональные параметры" - кнопка "Настройка..." - в поле "Разделитель целой и дробной части" можно установить желаемый разделитель.
Для того, чтобы перевод строки в число не зависел от разделителя, можно применить такой код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Преобразует строку в вещественное число. При этом, разделителем целой и дробной
//частей числа может быть любой знак из множества D.
function StrToFloatSafe(const aStr : String) : Extended;
const
  //Множество возможных разделителей целой и дробной части в записи числа.
  D = ['.', ','];
var
  S : String;
  i : Integer;
begin
  S := aStr;
  for i := 1 to Length(S) do begin
    if S[i] in D then begin
      S[i] := DecimalSeparator;
      Break;
    end;
  end;
  Result := StrToFloat(S);
end;
1
3 / 3 / 1
Регистрация: 22.03.2011
Сообщений: 135
24.02.2012, 22:46  [ТС] 3
Цитата Сообщение от Mawrat Посмотреть сообщение
Это значит в региональных настройках Windows в качестве разделителя целой и дробной частей задана запятая, а не точка.
Пуск - Панель управления - Язык и Региональные стандарты - Закладка "Региональные параметры" - кнопка "Настройка..." - в поле "Разделитель целой и дробной части" можно установить желаемый разделитель.
Для того, чтобы перевод строки в число не зависел от разделителя, можно применить такой код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Преобразует строку в вещественное число. При этом, разделителем целой и дробной
//частей числа может быть любой знак из множества D.
function StrToFloatSafe(const aStr : String) : Extended;
const
  //Множество возможных разделителей целой и дробной части в записи числа.
  D = ['.', ','];
var
  S : String;
  i : Integer;
begin
  S := aStr;
  for i := 1 to Length(S) do begin
    if S[i] in D then begin
      S[i] := DecimalSeparator;
      Break;
    end;
  end;
  Result := StrToFloat(S);
end;
благодарю за нужную информацию!
0
3 / 3 / 1
Регистрация: 22.03.2011
Сообщений: 135
24.02.2012, 22:58  [ТС] 4
Цитата Сообщение от Mawrat Посмотреть сообщение
Это значит в региональных настройках Windows в качестве разделителя целой и дробной частей задана запятая, а не точка.
Пуск - Панель управления - Язык и Региональные стандарты - Закладка "Региональные параметры" - кнопка "Настройка..." - в поле "Разделитель целой и дробной части" можно установить желаемый разделитель.
Для того, чтобы перевод строки в число не зависел от разделителя, можно применить такой код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Преобразует строку в вещественное число. При этом, разделителем целой и дробной
//частей числа может быть любой знак из множества D.
function StrToFloatSafe(const aStr : String) : Extended;
const
  //Множество возможных разделителей целой и дробной части в записи числа.
  D = ['.', ','];
var
  S : String;
  i : Integer;
begin
  S := aStr;
  for i := 1 to Length(S) do begin
    if S[i] in D then begin
      S[i] := DecimalSeparator;
      Break;
    end;
  end;
  Result := StrToFloat(S);
end;
теперь вылетает перед запуском программы окно (на картинке) , нажимаю ОК дальше открывается окно программы.
Миниатюры
Floating point value  
0
13084 / 5869 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
24.02.2012, 23:16 5
pashok668, надо везде поменять StrToFloat() на StrToFloatSafe().
1
3 / 3 / 1
Регистрация: 22.03.2011
Сообщений: 135
24.02.2012, 23:26  [ТС] 6
Цитата Сообщение от Mawrat Посмотреть сообщение
pashok668, надо везде поменять StrToFloat() на StrToFloatSafe().
спасибо помоголо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.02.2012, 23:26
Помогаю со студенческими работами здесь

floating point overflow
Ошибка появилась в 105 строке,после того ,как убрал функцию sqrt(т.к в задании была ошибка...)....

Floating point overflow
Здравствуйте! Задание состоит в том, чтобы вычислить значение суммы следующего ряда с требуемой...

..is not a valid floating point value..
Вот кусочек моего задания, на котором я немного &quot;заглох&quot;. • При нажатии кнопки «Ввести»,...

Floating point overflow
Очень долго возился с этим заданием.Еле-еле понял как делать.Теперь выдает ошибку &quot;Floating point...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru