It seems there’s a regression issue from Delphi XE2 to Delphi XE3 that is preventing TLang to store more than 17 translations. You can even find an entry for this in Embarcadero Quality Central, for which no workaround or fix has been provided up to this date.
I found a programmatic workaround for this issue. Basically, the native strings and the translations could be loaded from text files in which each line will have the form:
NativeString1=Translation1
NativeString2=Translation2
NativeString3=Translation3
…………
NativeStringN=TranslationN
You will need one file containing the native strings and the translations per language. These files can contain as many lines as you which (certainly more than 17). In order to load those files into an existing TLang component you can use the function below:
procedure LoadTranslationsFromFile(aLangCode: string; aFileName: string; aLang: TLang);
var
Translations: TStrings;
begin
if (aLangCode <> '') and
(FileExists(aFileName)) and
(Assigned(aLang)) then
begin
Translations:= TStringList.Create;
Translations.LoadFromFile(aFileName);
aLang.Resources.AddObject(aLangCode, Translations);
end;
end;
For an example of how to use such function see below:
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadTranslationsFromFile('ES', 'C:\Temp\Lang_Test_ES.txt', Lang1);
LoadTranslationsFromFile('EN', 'C:\Temp\Lang_Test_EN.txt', Lang1);
end;
Hopefully this bug will be fixed in the near future; but meanwhile you can use this workaround to handle more than 17 translations with the TLang component.