Delphi fmx 获取当前平台使用的语言

//读取当前语言
function GetCurrentLan: string;
var
  LocServ: FMX.Platform.IFMXLocaleService;
begin
  Result:='';
  if FMX.Platform.TPlatformServices.Current.SupportsPlatformService(FMX.Platform.IFMXLocaleService, IInterface(LocServ)) then
    Result := LocServ.GetCurrentLangID;
end;

 

添加新评论

纯文本

  • 不允许使用HTML标签。
  • 自动断行和分段。
  • 网页和电子邮件地址自动转换为链接。
请输入图片中的字符,不区分大小写