Функция StrToCurr – преобразует числовую строку в денежное выражение

Функция StrToCurr в Delphi преобразует числовую строку в денежное выражение.

Функция StrToCurr: Преобразование научного формата числовой строки

var
  stringValue : string;
  currValue   : Currency;

begin
  // Установка исходной строки, содержащую представление числа
  stringValue := '123.456E+002';

  // Её преобразование в вещественное число
  currValue  := StrToCurr(stringValue);

  // И показ значения
  ShowMessage(stringValue+' = '+CurrToStr(currValue));
end;

Функция StrToCurr: Захват ошибок строковых преобразований

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;