Функция StrToCurr конвертирует числовую строку CurrString, например '123.456' в значение с типом Currency (валюта).
Она поддерживает целый формат, формат с плавающей точкой и научный (экспоненциальный) формат.
Если в CurrString встретился символ, отделяющий целое от дроби, то он должен соответствовать текущему значению переменной DecimalSeparator.
Второй вариант этой функции предназначен для использования в потоках. Перед вызовом функции вы должны заполнить запись FormatSettings. Функция делает локальную копию глобальных переменных форматирования, что делает ее потокобезопасной.
Примечания
Исключение EConvertError выбрасывается, если есть ошибки в CurrString, типа конечных пробелов или недопустимых десятичных символов.
Похожие команды
Currency Тип с плавающей запятой с 4 десятичными числами, используемыми для финансовых значений
CurrToStrF Преобразует денежную величину в строку с форматированием
Format Богатое форматирование чисел и текста в строке
TFormatSettings Запись для содержания региональных значений для thread-safe функций
Пример кода : Преобразование научного формата числовой строки
var
stringValue : string;
currValue : Currency;
begin // Установка исходной строки, содержащую представление числа
stringValue := '123.456E+002'; // Её преобразование в вещественное число
currValue := StrToCurr(stringValue); // И показ значения
ShowMessage(stringValue+' = '+CurrToStr(currValue));
end;
123.456E+002 = 12345.6
Пример кода : Захват ошибок строковых преобразований
var
A : Currency;
begin // Мы захватим конверсионные ошибки
try A := StrToCurr('10 E 2'); // Средние пробелы не поддерживаются
except
on Exception : EConvertError do
ShowMessage(Exception.Message);
end;
try A := StrToCurr('$FF'); // Шестнадцатеричные значения не поддерживаются
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