Puoi ottenere il testo tradotto corrente a livello di programmazione della tua sorgente di ritorno:
var
dGOBACK: string;
begin
dGOBACK := Lang1.LangStr[Lang1.Lang].Values['GO BACK'];
lbDGroup.Items.Add(dGOBACK);
end;
Domanda
Ho una casella di lista popolata da una tabella di database. Voglio aggiungere un ultimo elemento chiamato "Vai indietro" e lo aggiungo dal codice sorgente in questo modo:
lbDGroup.Items.Add('GO BACK');
Ho un componente Tlang con la stringa "torna indietro" tradotta in altre lingue, ma questo oggetto non è transaltato (mostra sempre "tornare indietro").
Come posso impostarlo per essere tradotto con Tlang (tutti i componenti aggiunti dal design e tutti gli showMessages sono mostrati correttamente).
Grazie
Soluzione
Puoi ottenere il testo tradotto corrente a livello di programmazione della tua sorgente di ritorno:
var
dGOBACK: string;
begin
dGOBACK := Lang1.LangStr[Lang1.Lang].Values['GO BACK'];
lbDGroup.Items.Add(dGOBACK);
end;
Altri suggerimenti
Più facile:
uses
FMX.Types;
begin
lbDGroup.Items.Add(Translate('GO BACK'));
end;
Su Delphi FMX XE6 e sopra