[bloodmaster89]

Здравствуйте!
Помогите пожалуйста решить проблему.
Каким образом можно перевести значение вида
6.19063511890195E+0001
которое храниться и считывается с текстового файла и присвоить это значение другой переменной?

Код:

1 2 3 4 5 6 7 8 9 10 11

var  fi_r:Real;  tr1:Tstringlist;  tr2:Tstringlist; begin  tr1:= TStringList.Create (); tr1.LoadFromFile('trajectory_P1.txt'); tr2.text:=stringReplace(tr1[0],#32,#13#10,[rfReplaceAll]); fi_r:=StrToFloat(tr2[6]);  showmessage(FloatToStr(fi_f)); end;

При выполнении возникает ошибка delphi raised exception class econverterror 6.19063511890195E+0001 with message is not valid floating point value.
Как можно устранить эту ошибку?
Заранее благодарен за ответы!

[poli-smen]

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

При выполнении возникает ошибка delphi raised exception class econverterror 6.19063511890195E+0001 with message is not valid floating point value.

У тебя в Windows-е скорее всего указан русский региональный стандарт, а по-умолчанию в русском региональном стандарте в качестве разделителя дробной и целой части используется запятая, а не точка, вот поэтому функция StrToFloat не может преобразовать эту строку в число.
Перед вызовом StrToFloat задай правильный разделитель в глобальной переменной DecimalSeparator:

Код:

1 2 3 4

DecimalSeparator := '.';   // Теперь можно: fi_r := StrToFloat('6.19063511890195E+0001');

[bloodmaster89]

Большое Спасибо! Все заработало!

[phomm]

Способ понадёжнее, т.к. просто DecimalSeparator - непотокобезопасен и deprecated с какой-то версии дельфи. Да и просто гибче для разработчика, не надо следить за глобальной переменной.

Код:

1 2 3 4 5

var   fs: TFormatSettings; ...   fs.DecimalSeparator  := '.';   StrToFloat('6.19063511890195E+0001', fs);