문제

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 이상에서

라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top