Como traduzir um ListBoxItem com o Firemonkey?

Question

Eu tenho uma tabela de banco de dados de Formulário de Banco de Dados. Quero adicionar um último item chamado "Volte de volta" e adiciono -o do código -fonte dessa maneira:

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

Eu tenho um componente tlang com a string "Voltar" traduzida para outros idiomas, mas esse item não é transaltado (sempre mostra "Volte de volta").

Como posso configurá -lo para ser traduzido com o tlang (todos os componentes adicionados no design e todas as exibições são mostradas corretamente traduzidas).

Obrigado

Answer 1

Você pode obter o texto traduzido atual programaticamente da sua fonte de volta:

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

Answer 2

mais fácil:

uses
  FMX.Types;

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

em Delphi FMX XE6 e acima