Клуб программистов

    Функция StrToFloat конвертирует числовую строку FloatString, например '123.456' в значение с плавающей точкой с типом Extended.

     Она поддерживает целый формат, формат с плавающей точкой и научный (экспоненциальный) формат.

     Если в FloatString (преобразуемой строке) встретился символ, отделяющий целое от дроби, то он должен соответствовать текущему значению переменной DecimalSeparator ( точка - разделитель ).

     Второй вариант этой функции предназначен для использования в потоках. Перед вызовом функции вы должны заполнить запись FormatSettings. Функция делает локальную копию глобальных переменных форматирования, что делает ее потокобезопасной.

var
   stringValue : string;
   floatValue : Extended;

begin
   // Set up the source string containing a number representation
   stringValue := '123.456E+002';

   // Convert it to a floating point number
   floatValue := StrToFloat(stringValue);

   // And display the value
   ShowMessage(stringValue+' = '+FloatToStr(floatValue));
end;

123.456E+002 = 12345.6

var
   A : Extended;

begin
   // We will catch conversion errors
   try
      A := StrToFloat('10 E 2'); // Middle blanks are not supported
   except
      on Exception : EConvertError do
        ShowMessage(Exception.Message);
   end;

   try
      A := StrToFloat('$FF'); // Hexadecimal values are not supported
   except
      on Exception : EConvertError do
        ShowMessage(Exception.Message);
   end;
end;

'10 E 2' is not a valid floating point value
'$FF' is not a valid floating point value