LCID: Integer;
Свойство LCID возвращает идентификатор текущих настроек языка и региональных стандартов.
Sub UserProc;
Var
CI1, CI2: ICultureInfo;
Begin
CI1 := CultureInfo.CurrentUi;
CI2 := CultureInfo.UserDefault;
If CI1.LCID = CI2.LCID Then
Debug.WriteLine("Региональные настройки, используемые в приложении и ОС, одинаковые.");
Else
Debug.WriteLine("Региональные настройки, используемые в приложении и ОС, разные.");
End If;
End Sub UserProc;
При выполнении примера будут получены культура визуального интерфейса текущего приложения и культура, заданная в операционной системе. Будет осуществлено сравнение культур по их идентификатору. Результат сравнения будет выведен в консоль среды разработки.
См. также: