Currency: String;
The Currency property returns the notation of a 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;
On executing the example the development environment console displays currency values of Russia, USA and United Kingdom.
See also: