DecimalSeparator: String;
Свойство DecimalSeparator возвращает текущий разделитель целой и дробной части.
Sub UserProc;
Var
CF: ICultureInfo;
Begin
CF := CultureInfo.UserDefault;
Debug.WriteLine("'" + CF.DecimalSeparator + "'");
Debug.WriteLine("'" + CF.ThousandSeparator + "'");
End Sub UserProc;
При выполнении примера будет получена текущая культура, заданная в операционной системе. В консоль среды разработки будут выведены заданные для культуры: разделитель целой и дробной части; разделитель групп разрядов.
См. также: