Как грамотно загружать языковые файлы в приложение?

[apromix]

Пожалуйста, подскажите, наведите на правильный и грамотный путь, как просто сделать загрузку языковых файлов в приложение? Сейчас использую для загрузки языков. файлов INI-файлы, и все хорошо, но программа увелич. в размерах, за всем не уследить, появились ошибки. Можно ли это как-нибудь автоматизировать? Огромное спасиба!

[Air]

программа увелич. в размерах

А как Вы хотели.
Попробуйте, эти файлы, загрузить в ресурсы проги и от туда их читать, где-то на форуме была похожая тема (про строки и их вызов из рес-ов)

[FaTaL]

Даже если у вас 100 языков ini файлов, программа не на много увеличиться в размерах. А ini самый удобный способ, ведь каждый пользователь сможет создать для себя свой такой файл на своём языке.

[Air]

каждый пользователь сможет создать для себя свой такой файл на своём языке

Ага, если он знает перевод и прога поддерживает дополнения.

а не опытные пользователи могут всё испортить.

_______________

Сообщение от Stilet

Как по мне INI файлы для такой задачи достаточно грамотное решение.

Согласен, только их переименовать нужно.
Например. "Russian.ini" в "Russian.sys" или dat - короче что б не опытные пользователи не могли напартачить.

[Stilet]

Как по мне INI файлы для такой задачи достаточно грамотное решение.

[FaTaL]

Я обычно делаю их с расширением *.lng и при запуске программы, сканирую дирректорию проги и добавляю все lng файлы в ComboBox. В итоге все могут добавить свой язык.

[apromix]

А можно примерчик? Как я понял лучше INI нет, и не нужно себе жизнь усложнять.

Вот мой код. Я правильно делаю?

procedure LoadLanguage;
var
  sAppPath: String;
  Ini: TINIFile;
  I: Word;
begin
  Ini:= TINIFile.Create(AppPath + 'languages/' + DefaultLanguage);
  try
    for I := 0 to High(Lng)do Lng[I] := '';
    for I := 0 to High(Lng)do
    begin
      Lng[I] := Ini.ReadString('Main', IntToStr(I), '');
    end;
    finally
      Ini.Free;
  end;
  AppName := Lng[0];
end;

[BOBAH13]

Я бы не делал загрузку всех строк в память. Сделал бы типа такого:

function GetLangFromID(ID: Integer): String;
begin
  Result := Ini.ReadString('Main', IntToStr(ID), '');
end;

А смысл грузить все в память я не вижу...

[Air]

"apromix", добавьте к коду предложенный вариант "FaTaL" - грузить в ComboBox, а потом (русский к примеру, - по умолчанию загрузить), пользователь сам выберет язык и этот выбор надо занести в секцию "LangDef" (язык по умолчанию), что б далее не пришлось каждый раз его менять.

[apromix]

Хорошо, строки вынул из ини-файла для определенного языка, но как их присвоить определенным строковым переменным? Может есть пример сделать это автоматически, в цикле перебирая компоненты программы?