Как определить выбранный на устройстве язык?

[Schekhovtsov]

Чтобы если был выбран английский, приложение включало пресет английского. Собственно, нужен какой-то способ определения активного языка.

[Alex7wrt]

 Для Android:

uses FMX.Platform;
.........
var ls: IFMXLocaleService;
    lang: string;
begin
    if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(ls)) then lang:=ls.GetCurrentLangID;

В зависимости от языка переменная lang примет значения 'en', 'ru' и т.д.

 

либо просто: 

lang:=copy(SysLocale.DefaultLCID,1,2);

В этом случае нужен модуль System.SysUtils. 

Первый вариант, насколько я помню, выводит региональный код, а второй - код языка. В большинстве случаев они совпадают, но для  стран, в которых говорят на одном языке, они отличаются. Первый вариант возвратит код страны, второй - код языка. 

Изменено 15 августа, 2015 пользователем Alex7wrt

[Vitaldj]

А как поменять язык автоматически? Интересует windows и mac os x.