| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка при использовании функции StrToFloat [D6, WinXP]

raiks ©   (2004-09-12 14:08:00) 

Мне нужно прочитать текстовый файл, все значения в котором записаны в виде x.yyyy (напр. 6.3245), и преобразовать их в тип Extended для дальнейшей работы с ними. При попытке использовать функцию StrToFloat Delphi вываливается с ошибкой EConvertError.

e:= StrToFloat (‘6.3245’)        //  Ошибка EConvertError ‘6.3245 is not a valid floating point value’.

При этом, почему–то, строка  e:=StrToFloat (‘6,3245’), где вместо разделителя используется не точка, а запятая, ошибки не вызывает. С чем это связано и как можно решить эту проблему?

Спасибо.

---

raiks   (2004-09-13 11:17:00) [1]

Всем большое спасибо! Разобрался, все работает.

---

Mim1   (2004-09-13 10:10:00) [2]

>  [5] KSergey ©   (13.09.04 09:10)
> > [4] QuasiLamo ©   (12.09.04 18:15)
>
> Либо так: (с учетом "x.yyyy")

Либо так

s[pos(s,'.')] := DecimalSeparator;

---

PVOzerski   (2004-09-13 10:05:00) [3]

Я бы использовал val вместо StrToFloat. Эта процедура всегда считает десятичным разделителем точку.

---

KSergey   (2004-09-13 09:10:00) [4]

> [4] QuasiLamo ©   (12.09.04 18:15)

Либо так: (с учетом "x .yyyy")

var
  SavDecimalSeparator: Char;
begin
  SavDecimalSeparator := DecimalSeparator;
  DecimalSeparator := '.';
  try
    ... работаем с файлом ...
  finally
   DecimalSeparator := SavDecimalSeparator;
  end;
end;

Возможно, в данной частной задаче можно и не восстанавливать ;)

---

QuasiLamo   (2004-09-12 18:15:00) [5]

Пусть в строке s хранится число. После этих двух сток
s:=stringreplace('.',DecimalSeparator,s,[]);
s:=stringreplace(',',DecimalSeparator,s,[]);
какой бы ни был объявлен разделитель в системе, заменится на правильный.
Сам придумал и всегда так делаю... :)

---

Vulko   (2004-09-12 16:50:00) [6]

В win можно задать разделитель дробной и целой частей. По дефолту в русской версии разделителем является запятая.

---

Vulko   (2004-09-12 16:50:00) [7]

Удалено модератором

---

Семен Сорокин   (2004-09-12 14:14:00) [8]

DecimalSeparator + f1
StrToFloatDef

---

Наверх