delphi - firemonkeyでListBoxItemを翻訳するには?

Question

データベーステーブルからリストボックスにデータが取り込まれています。「戻る」という最後の項目を追加したいので、ソースコードから次のように追加します。

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

「GO BACK」文字列を別の言語に翻訳した TLang コンポーネントがありますが、このアイテムは翻訳されていません (常に「GO BACK」と表示されます)。

TLang で翻訳されるように設定するにはどうすればよいですか (デザインから追加されたすべてのコンポーネントとすべての showmessages が正しく翻訳されて表示されます)。

ありがとう

score 2 · Accepted Answer

GO BACK Source の現在の翻訳済みテキストをプログラムで取得できます。

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

score 1 · Accepted Answer

より簡単に：

uses
  FMX.Types;

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

Delphi FMX XE6 以降

2 に答える 2