您可以通过编程返回来源获取当前翻译文本:
var
dGOBACK: string;
begin
dGOBACK := Lang1.LangStr[Lang1.Lang].Values['GO BACK'];
lbDGroup.Items.Add(dGOBACK);
end;
题
我有一个列表框填充的表单数据库表。我想添加最后一个名为“返回”的项目,然后以这种方式从源代码添加它:
lbDGroup.Items.Add('GO BACK');
我有一个带有“回去”字符串的tlang组件,该字符串翻译成另一种语言,但是该项目没有透射(它总是显示“返回”)。
我如何将其设置为用tlang翻译(从设计中添加的所有组件和所有showmessages均已正确翻译)。
谢谢
解决方案
您可以通过编程返回来源获取当前翻译文本:
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及以上