Описание
Функция преобразовывает строковое представление числа с плавающей запятой в значение типа Currency. В строке допускаются следующие символы: '+' или '-', цифровые символы, точка (десятичный разделитель), знак экспоненты 'E' или 'e', сопровождаемый целым числом со знаком. Пробелы в начале и конце строки игнорируются. Разделители тысяч и символы валюты в синтаксисе строки не допускаются. Символ, который должен использоваться в качестве десятичной точки, определяется глобальной переменной DecimalSeparator. Если строка содержит недопустимое значение, то возникает исключение EConvertError.
Пример var
Sum: Extended; begin try
Sum:= StrToCurr (Edit1.text); except
MessageDlg( 'Сумма указана не верно!', mtInformation, [mbOk], 0); end; end;
