LCID: Integer;
The LCID property returns the identifier of the current language and regional standard settings.
Sub UserProc;
Var
CI1, CI2: ICultureInfo;
Begin
CI1 := CultureInfo.CurrentUi;
CI2 := CultureInfo.UserDefault;
If CI1.LCID = CI2.LCID Then
Debug.WriteLine("Regional settings used in application and operating system are the same.");
Else
Debug.WriteLine("Regional settings used in application and operating system are different.");
End If;
End Sub UserProc;
On executing the example the culture of current application visual interface and the culture set in the operating system are obtained. The cultures will be compared by identifier. The result of comparison is displayed in the development environment console.
See also: