如何使用firemonkey翻译ListBoxItem？

Question

我有一个填充数据库表的列表框。我想添加一个名为“Go back”的最后一项，我以这种方式从源代码中添加它：

lbDGroup.Items.Add('GO BACK');

我有一个TLang组件，其中“GO BACK”字符串被翻译成另一种语言，但是这个项目没有被翻译（它总是显示“GO BACK”）。

如何将其设置为使用TLang进行翻译（从设计中添加的所有组件和所有showmessages都显示正确翻译）。

感谢的

Answer 1

您可以通过编程方式获取当前翻译文本的GO BACK来源：

var
  dGOBACK: string;
begin
  dGOBACK := Lang1.LangStr[Lang1.Lang].Values['GO BACK'];
  lbDGroup.Items.Add(dGOBACK);
end;

Answer 2

更容易：

uses
  FMX.Types;

begin
  lbDGroup.Items.Add(Translate('GO BACK'));
end;

在Delphi FMX XE6及以上