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
――――――――――――――――

原文链接：https://blog.csdn.net/pcplayer/article/details/79578258
 

相关阅读 >>

Delphi 实现php的urlencode编码效果

Delphi 判断文件扩展名函数

Delphi winsoft comport for android usb

Delphi 关于使用access中带参数的查询的用法

Delphi web service 多表提交的事务管理

Delphi xe 制作的萤光时钟，可改作屏保

Delphi 实现如何枚举所有打开的ie选项卡

Delphi 检查程序是否在（vm，vpc等）虚拟机运行 Delphi(测试可用)

移植Delphi7的tclientsocket,tserversocket

Delphi button 实现下拉列表

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

转载请注明出处：木庄网络博客 » Delphi 关于多语言：如何获取当前系统语言