Delphi Android Cihaz Dil öğrenme

Merhabalar,

Embarcaderonun formunda gezinirken bir soruya verilen cevaptan aldığım kodları sizlerle paylaşıyorum.

Sadece Android platformda denedim MACOS olanlar kendileri deneyip yoruma bilgilendirmeyi yapabilirler.

function GetOSLangID: String;
{$IFDEF MACOS}
var
  Languages: NSArray;
begin
  Languages := TNSLocale.OCClass.preferredLanguages;
  Result := TNSString.Wrap(Languages.objectAtIndex(0)).UTF8String;
{$ENDIF}
{$IFDEF ANDROID}
var
  LocServ: IFMXLocaleService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocServ)) then
    Result := LocServ.GetCurrentLangID;
{$ENDIF}
end;