[AlexandrV]

Мне нужно осуществить добавления новых языком путем добавления новых актионов и новых строк в 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

не поможете как осуществить