鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 编程语言开发 > delphi > >

[函數] Firemonkey 各平台 "简体" / "繁体&am

来源:互联网 作者:佚名 时间:2017-09-08 09:53
目前的 Delphi 10 Seattle 的 TLang 尚不支持取得简体及繁体的语系字符,在能取得正确的语系字符后(整理中),才能使用下列函数判断: function ChineseLang( const Str: String): String; begin // 繁體 if (Str.IndexOf( ' zh-Hant ' ) = 0 ) // OSX iOS

目前的 Delphi 10 Seattle 的 TLang 尚不支持取得简体及繁体的语系字符,在能取得正确的语系字符后(整理中),才能使用下列函数判断:

function ChineseLang(const Str: String): String;
begin
  // 繁體
  if (Str.IndexOf('zh-Hant') = 0) // OSX & iOS
  or (Str = 'zh-TW') // OSX & iOS
  or (Str = 'zh-HK') // OSX & iOS
  or (Str = 'zh-MO') // OSX & iOS
  or (Str = 'zh_TW') // Android
  or (Str = 'zh_HK') // Android
  or (Str = 'zh_MO') // Android
  then Result := '是繁體' else

  // 簡體
  if (Str.IndexOf('zh-Hans') = 0) // OSX & iOS
  or (Str = 'zh-CN') // OSX & iOS
  or (Str = 'zh-SG') // OSX & iOS
  or (Str = 'zh_CN') // Android
  or (Str = 'zh_SG') // Android
  then Result := '是简体';
end;

 

网友评论
<