Floating point value

@pashok668 · Регистрация: 22.03.2011

Студворк — интернет-сервис помощи студентам

вот часть кода

Delphi

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;;

в итоге при выполнении, когда нажимаю подгрузить этот курс вываливается , (смотри фото)
подскажите в чем проблема.

@Mawrat · 24.02.2012, 22:44

Это значит в региональных настройках Windows в качестве разделителя целой и дробной частей задана запятая, а не точка.
Пуск - Панель управления - Язык и Региональные стандарты - Закладка "Региональные параметры" - кнопка "Настройка..." - в поле "Разделитель целой и дробной части" можно установить желаемый разделитель.
Для того, чтобы перевод строки в число не зависел от разделителя, можно применить такой код:

Delphi

//Преобразует строку в вещественное число. При этом, разделителем целой и дробной
//частей числа может быть любой знак из множества 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;

@pashok668 · 24.02.2012, 22:46 **[ТС]**

Сообщение от Mawrat

Это значит в региональных настройках Windows в качестве разделителя целой и дробной частей задана запятая, а не точка.
Пуск - Панель управления - Язык и Региональные стандарты - Закладка "Региональные параметры" - кнопка "Настройка..." - в поле "Разделитель целой и дробной части" можно установить желаемый разделитель.
Для того, чтобы перевод строки в число не зависел от разделителя, можно применить такой код:

Delphi

//Преобразует строку в вещественное число. При этом, разделителем целой и дробной
//частей числа может быть любой знак из множества 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;

благодарю за нужную информацию!

@pashok668 · 24.02.2012, 22:58 **[ТС]**

Сообщение от Mawrat

Это значит в региональных настройках Windows в качестве разделителя целой и дробной частей задана запятая, а не точка.
Пуск - Панель управления - Язык и Региональные стандарты - Закладка "Региональные параметры" - кнопка "Настройка..." - в поле "Разделитель целой и дробной части" можно установить желаемый разделитель.
Для того, чтобы перевод строки в число не зависел от разделителя, можно применить такой код:

Delphi

//Преобразует строку в вещественное число. При этом, разделителем целой и дробной
//частей числа может быть любой знак из множества 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;

теперь вылетает перед запуском программы окно (на картинке) , нажимаю ОК дальше открывается окно программы.

@Mawrat · 24.02.2012, 23:16

pashok668, надо везде поменять StrToFloat() на StrToFloatSafe().

@pashok668 · 24.02.2012, 23:26 **[ТС]**

Сообщение от Mawrat

pashok668, надо везде поменять StrToFloat() на StrToFloatSafe().

спасибо помоголо

@Mawrat 13100 / 5881 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	24.02.2012, 23:16	5
	pashok668, надо везде поменять StrToFloat() на StrToFloatSafe(). 1

@pashok668 3 / 3 / 1 Регистрация: 22.03.2011 Сообщений: 135
	24.02.2012, 23:26 [ТС]	6
	Сообщение от Mawrat pashok668, надо везде поменять StrToFloat() на StrToFloatSafe(). спасибо помоголо 0

Опции темы