Delphi-Help

Описание

1 function StrToCurr ( CurrencyString : string ) : Currency;
2 function StrToCurr ( CurrencyString : string; const FormatSettings : TFormatSettings ) : Currency;

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

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

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

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

Пример кода

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

Примечание

Исключение EConvertError выбрасывается, если есть ошибки в CurrString, типа конечных пробелов или недопустимых десятичных символов.