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

    Функция StrToCurr конвертирует числовую строку CurrString, например '123.456' в значение с типом Currency (валюта).

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

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

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

var
   stringValue : string;
   currValue : Currency;

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

   // Convert it to a floating point number
   currValue := StrToCurr(stringValue);

   // And display the value
   ShowMessage(stringValue+' = '+CurrToStr(currValue));
end;

123.456E+002 = 12345.6

var
   A : Currency;

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

   try
     A := StrToCurr('$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