Currency: String;
Свойство Currency возвращает обозначение денежной единицы.
Sub UserProc;
Var
CF: ICultureInfo;
Begin
CF := CultureInfo.Specific(LocaleCodeID.Russian);
Debug.WriteLine(CF.Currency);
CF := CultureInfo.Specific(LocaleCodeID.English_UnitedStates);
Debug.WriteLine(CF.Currency);
CF := CultureInfo.Specific(LocaleCodeID.English_UnitedKingdom);
Debug.WriteLine(CF.Currency);
End Sub UserProc;
При выполнении примера в консоль среды разработки будут выведены обозначения денежных единиц России, США и Великобритании.
См. также: