現在の翻訳されたテキストをプログラムで取得できます。
var
dGOBACK: string;
begin
dGOBACK := Lang1.LangStr[Lang1.Lang].Values['GO BACK'];
lbDGroup.Items.Add(dGOBACK);
end;
質問
データベーステーブルのフォームフォームのリストボックスがあります。 「Go Back」と呼ばれる最後のアイテムを追加したいと思います。この方法でソースコードから追加します。
lbDGroup.Items.Add('GO BACK');
「Go Back」文字列が別の言語に翻訳されたTlangコンポーネントがありますが、このアイテムはトランスモルトではありません(常に「Go Back」を表示します)。
Tlangで翻訳するように設定するにはどうすればよいですか(すべてのコンポーネントがデザインから追加され、すべてのショーマスが正しく翻訳されていることが示されています)。
ありがとう
解決
現在の翻訳されたテキストをプログラムで取得できます。
var
dGOBACK: string;
begin
dGOBACK := Lang1.LangStr[Lang1.Lang].Values['GO BACK'];
lbDGroup.Items.Add(dGOBACK);
end;
他のヒント
より簡単に:
uses
FMX.Types;
begin
lbDGroup.Items.Add(Translate('GO BACK'));
end;
Delphi FMX XE6以上で