Question

我是rarazilian，我需要使用我语言的Firemonkey资源字符串，例如当我使用对话框时。我找不到翻译它的方法。有人知道怎么做吗？

Answer 1

您需要的是this，但对于FMX。在快速搜索中，我在help for Delphi XE2中找到的唯一文件是FMX.Consts。您获取该文件，翻译它，然后将翻译后的文件放入您的项目中。

Delphi获得更新时要小心。原始文件可以更改，您需要更新翻译。此外，您可能希望更改具有Resource Strings的任何其他文件，并且您的项目正在使用这些文件。

最后，我不是这方面的专家，但如果你正在计划使用多语言，这可能不是更好的方法。

Answer 2

翻译FMX表单是使用TLang组件完成的，尽管这对大多数对话框都不起作用。

Answer 3

您可以使用FMX.Consts.pas更改对话框，但它会在编译期间修复语言。如果要在运行时检查主机操作系统的语言版本，则应更正FMX.Platform.Android.pas或FMX.Platform.iOS.pas。

对于Android，在FMX.Platform.Android.pas中，在过程TPlatformAndroid.MessageDialog中...找到ButtonCaptions并用你自己的函数包围它，例如：ZSTranslate（ButtonCaptions [B]）。以下列方式声明ZSTranslate：

function ZSTranslate(txt: String):String;
var
  LocaleSvc: IFMXLocaleService;
begin
  LocaleSvc :=  TPlatformServices.Current.GetPlatformService(IFMXLocaleService) as IFMXLocaleService;
 result:=txt;
 if LocaleSvc.GetCurrentLangID ='your_language_two_letter_id' then
 begin
   if txt= 'Yes' then
    result := 'yes in your language'
    else
     if txt= 'No' then
      result := 'no in your language'
    else
     if txt= 'Confirm' then
      result := 'confirm in your language'
        else
     if txt= 'Cancel' then
      result := 'cancel in your language';
 end
end;

将ZSTranslate置于TPlatformAndroid.MessageDialog上方某处FMX.Platform.Android.pas的副本中，并将此修正版本的FMX.Platform.Android.pas添加到您的项目中。

请注意，以上示例非常简单，据我记得Embarcadero质量系统中存在未解决的情况，建议在此处使用翻译方法（因此TLang应该可以正常工作）。我没有尝试翻译，我的版本完成了工作（因为对话框中只有几个按钮标签，我只想要两种不同的语言）。

对于iOS，您应该在FMX.Platform.iOS.pas中查找函数TPlatformCocoaTouch.MessageDialog。请注意，有两个重载版本。 iOS中也有MsgTitles和ButtonCaptions，因为iOS上的对话框显示字幕。

PS。对于Polish我也必须更正GetCurrentLangID方法，因为它总是返回'en' - 请仔细检查您的语言的结果。适合我的版本：在FMX.Platform.iOS.pas中：

function TPlatformCocoaTouch.GetCurrentLangID: string;
var
  lngs : NSArray;
  CurrentLocale: NSLocale;
  LanguageISO: NSString;
begin
  lngs := TNSLocale.OCClass.preferredLanguages;
  LanguageISO:= TNSString.Wrap(lngs.objectAtIndex(0));
  //CurrentLocale := TNSLocale.Wrap(TNSLocale.OCClass.currentLocale);
  //LanguageISO := TNSString.Wrap(CurrentLocale.objectForKey((NSLocaleLanguageCode as ILocalObject).GetObjectID));
  Result := UTF8ToString(LanguageISO.UTF8String);
  if Length(Result) > 2 then
    Delete(Result, 3, MaxInt);
end;

在FMX.Platform.Android.pas中：

function TPlatformAndroid.GetCurrentLangID: string;
var
  Locale: JLocale;
begin
  Locale := TJLocale.JavaClass.getDefault;
  Result := JStringToString(Locale.getLanguage);//getISO3Language); //zs
  if Length(Result) > 2 then
    Delete(Result, 3, MaxInt);
end;

如何翻译Firemonkey的资源字符串？

3 个答案: