Содержание
StrToCurrency(X : String) : Currency
Преобразование строки в число типа Currency.
Функция StrToCurrency преобразует строку в число типа Currency. Пробелы игнорируются. Десятичным разделителем может быть точка или запятая.
Пример:
Procedure OnCreate; Var S : String; X : Currency; Begin S := '123.4567'; X := StrToCurrency(S); Warning(ToStr(X)); // 123.4567 S := '123'; X := StrToCurrency(S); Warning(ToStr(X)); // 123.00 End;