현재 번역 된 텍스트를 프로그래밍 방식으로받을 수 있습니다.
var
dGOBACK: string;
begin
dGOBACK := Lang1.LangStr[Lang1.Lang].Values['GO BACK'];
lbDGroup.Items.Add(dGOBACK);
end;
문제
Listbox가 데이터베이스 테이블을 양식에 넣었습니다. "Go Back"이라는 마지막 항목을 추가하고 이런 방식으로 소스 코드에서 추가하고 싶습니다.
lbDGroup.Items.Add('GO BACK');
다른 언어로 번역 된 "Go Back"문자열이있는 tlang 구성 요소가 있지만,이 항목은 트랜스칼트되지 않았습니다 (항상 "Go Back"을 보여줍니다).
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 이상에서