请选择 进入手机版 | 继续访问电脑版

大富翁Delphi开发技术网站

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1436|回复: 0

[函數] Firemonkey 各平台 "简体" / "繁体" 判断

[复制链接]

69

主题

96

帖子

834

积分

管理员

哈哈哈哈

Rank: 9Rank: 9Rank: 9

积分
834
发表于 2016-8-27 10:42:40 | 显示全部楼层 |阅读模式
精品文章
支持版本: Delphi XE10 
资源分类: 控件 
发布平台: Windows Android IOS 
转载地址: http://www.cnblogs.com/onechen/p/5316660.html

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
目前的 Delphi 10 Seattle 的 TLang 尚不支持取得简体及繁体的语系字符,在能取得正确的语系字符后(整理中),才能使用下列函数判断:
  1. function ChineseLang(const Str: String): String;
  2. begin
  3.   // 繁體
  4.   if (Str.IndexOf('zh-Hant') = 0) // OSX & iOS
  5.   or (Str = 'zh-TW') // OSX & iOS
  6.   or (Str = 'zh-HK') // OSX & iOS
  7.   or (Str = 'zh-MO') // OSX & iOS
  8.   or (Str = 'zh_TW') // Android
  9.   or (Str = 'zh_HK') // Android
  10.   or (Str = 'zh_MO') // Android
  11.   then Result := '是繁體' else

  12.   // 簡體
  13.   if (Str.IndexOf('zh-Hans') = 0) // OSX & iOS
  14.   or (Str = 'zh-CN') // OSX & iOS
  15.   or (Str = 'zh-SG') // OSX & iOS
  16.   or (Str = 'zh_CN') // Android
  17.   or (Str = 'zh_SG') // Android
  18.   then Result := '是简体';
  19. end;
复制代码



转载请保留当前帖子的链接:http://www.dfwlt.com/forum.php?mod=viewthread&tid=2259 谢谢!

搜索简单,分享不易,且分享且珍惜,您难道不想分享下您的心得?如果觉得本文章好的话,您可以在我们网站上注册,然后发布您的好的心得,让大家共同进步,谢谢!

最新添加

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

申请友链|Archiver|手机版|小黑屋|大富翁Delphi开发技术网站 ( 苏ICP备12065705号-4

GMT+8, 2019-10-18 03:25 , Processed in 0.106186 second(s), 32 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表