[函數] Firemonkey 各平台 "簡體" / "繁體" 判斷，firemonkey

[函數] Firemonkey 各平台 "簡體" / "繁體" 判斷，firemonkey

目前的 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;