uses FMX.Platform;
function TForm2.GetCurrentLan: string;
var
LocServ: IFMXLocaleService;
begin
//读取当前语言,测试通过。
if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocServ)) then
Result := LocServ.GetCurrentLangID;
end;
以上代码,Windows 和 Android 底下测试通过。iOS 想来也不会有问题。