DELPHI 安卓如何获取当前系统语言

本文整理自网络，侵删。

 
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 想来也不会有问题。

参考： Language on iOS/Android

 

相关阅读 >>

Delphi 之前解析串口数据

Delphi 外壳扩展创建快捷方式和获取快捷方式的目标对象

Delphi 判断表字段是否存在

Delphi取得桌面工作区域的大小

Delphi 实现无标题栏但有边框的窗口

Delphi 2009 之 tcategorypanelgroup[4]: height

Delphi systemparametersinfo 用法

Delphi中实现调整图像的色阶的算法

Delphi 删除确认对话框

Delphi 如何将access数据库后缀名accdb改为mdb

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » DELPHI 安卓如何获取当前系统语言