Как динамически создать процедуры для подменю компонента TMainMenu

[Dimitriys]

В общем столкнулся с такой проблемой. Делаю тест, в нём есть меню, сделано с помощью объекта TMainMenu. Там есть 5 пунктов, в которых существует по 20 подпунктов (названия тестов), мне надо как-то сделать так, чтобы не открывать каждую процедуру (не создавать по одной), а сделать это как-нибудь в цикле (как-нибудь программно), т.к. там будут выполняться практически одни и те же действия. Спасибо всем кто постарается помочь.

[Баламут]

Выделяешь все пункты меню с помощью Ctrl и в инспекторе объектов кликаешь по onClick. Таким образом ты создашь один, общий обработчик для всех пунктов меню. Пишем код:

procedure TForm1.N2Click(Sender: TObject);
begin
if (sender as TMenuItem).MenuIndex = 0
then Application.MessageBox('Получилось!', 'Упс...', mb_OK);
end;

В общем думаю идея понятна...

[Shuraken]

Я бы предложил чуть поконкретней:
Каждому меню проставить свой Tag, дальше как посоветовал Баламут создать единый обработчик и в нем написать:
procedure TForm1.N2Click(Sender: TObject);
begin
case (Sender as TMenuItem).Tag of
0: <пишешь что надо>
end;
end;

[Баламут]

А по мне так использовать Tag излишне. MenuIndex и так однозначно идентифицирует пункт меню. А потому конструкция типа

case (sender as TMenuItem).MenuIndex of
0: ...
1: ...
end;

вполне имеет право на существование.

[Dimitriys]

Есть проблемка. В общем у меня в меню есть пункты с названиями 1201, 2105, 1111 и т.д. В них есть 20 пунктов с названиями тестов. Мне надо, чтобы выполнилось действие не тогда, когда я нажимаю на 1201, 2105 и т.д., а чтобы оно выполнилось, когда я нажму на название теста. У меня не получилось сделать так =\ Можете, помогите.

[Dimitriys]

Всё я сделал, спасибо всем за помощь =)
У меня есть только ещё один вопрос, как сделать защиту для текстового файла? У меня там находятся вопросы, ответы, номер правильного ответа и т.д. Как можно защитить?

[Killer_djon]

А защищать можно несколькими способам, я к примеру предпочитаю шифрование, так называемое криптография... берешь тектовый файл, считываешь его побайтно, и начиная с первого байта шифруешь т.е. производишь какую либо операцию :

var b: byte;
key : string;
...
key:='test';
...
read(fn, xb) // считывание файла побайтно
//запускаешь цикл до последнего байта и в теле цикла пишешь
...
xb:= xb XOR ord(key[i]); // сама операция шифровани

Ну конечно это самый простой метод, но дети наврядли догадаются (если они конечно не программеры со стажем)...

[Dimitriys]

Мне как раз-таки и нужен простой метод, но шифрование я думаю не подойдёт, т.к. необходимо будет изменять данные.. Надо рассчитывать на то, что это (изменять данные) будет делать не очень хорошо знающий компьютер человек (учитель).

[Баламут]

Ну так сделай интерфейс для изменения текстов, доступ в который предоставляется по паролю. А защитить чем-то иным, кроме шифрования действительно проблематично.

[Berszet]

У меня аналогичное задание почти. Раз ты сделал, то наверное можешь помочь.
У меня вопрос как ты сделал так, чтобы при нажатии на пункт меню отображался нужный вопрос вариантами из текстового файла?