Мне нужно осуществить добавления новых языком путем добавления новых актионов и новых строк в MainMenu
например вот код для перевода
Код:
procedure TForm2.RussianExecute(Sender: TObject);
begin
Language:='rus';
LangugeRead;
end;
Это для русского
Language - переменная содержащия имя ини файла которое содержит перевод
LangugeRead; запуск процедуры перевода
нужно используя это сделать так чтобы можно было добавлять новые языки
вот как называются переводы
rus.data - для русского
eng.data - для английского
переменной Language нужно присваивать олько имя файла перевода без расширения так как расширения присваиваются уже в процедуре перевода, но как это организовать в процедуре чтобы одна процедура по тому какая строка в меню нажата присваивала Language нужное имя если при этом имя строки в меню должно отображаться не rus а Русский можно использовать это
Код:
[Код_Удаления_Строки_По_Коду]
Код={*+}
[LanguageLibxEditor]
MaximumLang=4
Language0=rus{*+}Русский
отделить rus от Русский я смогу но как назвать динамический массив который будет содержать rus чтобы в итоги после нажатия на Item происходил перевод
Будет создан динамический масив итемов например
DynamikLank1:array of TMenuItem;
DynamikLank2:array of TAction;
вот поцедура для запуска перевода
Procedure ActivateLoadLang;
begin
Language:= Выбранный язык из MainMenu
LangugeRead;
end;
сложность заключается в этом Language:= Выбранный язык из MainMenu
не поможете как осуществить