Вызвать указанную в параметре функцию

[NNK_RTR]

Нужно из некоторой процедуры вызвать другую, заранее неизвестную процедуру (или одну из известных). Типа:

procedure First(param1:integer;param2: ?;
  begin
   ...
   param2; //вызвать нужную процедуру
   ...
  end;

Какой тип параметра param2? (если это вообще возможно)
Если невозможно, то подскажите, как это вообще можно сделать.
Но без перебора, типа:

 Если param2 = 2, то вызвать процедуру two();
 ...
 Если param2 = 10, то вызвать процедуру ten();

Спасибо за то, что прочитали, а если еще и ответите, то ГРОМАДНОЕ спасибо

С уважением, Николай.

[Вадим Мошев]

Как сделать без перебора, как вы хотите, я вряд ли скажу. Но, если вам отсутствие перебора не принципиально, то...
param2 можно сделать тоже целым числом. В функции first делаете такой перебор, как вы написали. Далее, делайте вот что.
Ниже пишите только заголовки (сигнатуры) необходимых процедур (two, three, four...ten). После них через точку с запятой пишите слово forward. То есть, у вас получится что-то вроде

procedure two(ПАРАМЕТРЫ); forward;

и так далее для всех остальных процедур.

А реализацию функций надо будет написать после десятой процедуры.

Если честно, я сам никогда не так подпрограммы (не приходилось), но делается это как-то так с большой долей точности.

[NNK_RTR]

Спасибо ОГРОМНОЕ!
Процедуры (функции) two, three, four...ten будут находиться в другом модуле (или, даже, в разных модулях) (в них же и описаны). Поэтому директива (или спецификатор?) forward тут неуместен (может и ошибаюсь).
Дело в том, что процедура First содержит довольно большой цикл (перебор файлов каталогов с заходом в под-каталоги). В этом цикле и должна вызываться нужная процедура. Не хотелось бы использовать операторы выбора в цикле. И так, сам перебор и обработка файлов занимает много времени.
Все равно ОГРОМНОЕ спасибо за ответ.
С уважением, Николай.

[Аватар]

Например так для не объектных процедур:

type TMyProcrdure = procedure(Text: String);

procedure MyProc1(Text: String);
begin
  ShowMessage('MyProc1'#13+Text);
end;

procedure MyProc2(Text: String);
begin
  ShowMessage('MyProc2'#13+Text);
end;

procedure MyProc(Text: String; tProc: TMyProcrdure);
begin
  tProc(Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyProc('бла-бла 1',MyProc1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MyProc('бла-бла 2',MyProc2);
end;

[evg_m]

процедурный тип.

TMyParamProc  =procedure(p1: integer; p2: boolean);

все процедуры передаваемые как параметр должны будут иметь ровно такое число и тип параметров.

procedure run(x: integer; testproc: TMyParamProc);
begin
  ...
  testproc(x, true); // вызов переданной процедуры
 ...
end;

procedure first(a: integer; b: boolean); //процедура которую мы хотим вызвать (число и типы параметров в соответвии с TmyParamProc
begin
...// а уж использовать их или нет ?!
end;

run(40, first); //и мы указываем  имя процедуры с котрой будем работать

[NNK_RTR]

Вопрос в принципе снят.
Буду пытаться внедрить ответ в жизнь, вернее в код

Спасибо ОГРОМНОЕ (раз обещал)

[northener]

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

Вопрос в принципе снят.

А вот насколько бы было вам легче жить, если бы вы озвучили не только частный вопрос, но и саму вашу задачу!

[NNK_RTR]

Даже не знаю...
Попробую озвучить общую задачу, а Вы подскажите, правильно ли я Вас понял.
Лет 10 назад я решил разобраться с фото, которые до безобразия вольготно расплодились на моем компьютере. Я решил все фото собрать в одну папку и упорядочить их по дате съемки. Посмотрев результат я заметил, что некоторые фото сняты явно летом имеют дату съемки указывающие на зиму (январь...), да и год съемки, судя по возрасту внуков тоже не сходится. Изменить дату съемки одного фото легко, но их множество. Тогда я написал несколько программ, которые последовательно справляются с пакетным изменением даты съемки. (одна программа собирает все фото в одну папку, другая - сортирует по типу камеры...). программы практически не имели интерфейса, необходимые данные я вставлял непосредственно в код, но со своей задачей справились и я успокоился. По мере старения (сейчас 68 лет) я заметил, что мозги явно усыхают. Чтобы замедлить усыхание я занялся русификацией программ. Наибольшим своим достижением я считаю перевод IDA. (если кому интересно, то мои переводы можно посмотреть здесь). С этой же целью я решил собрать разные программы в одну с общим интерфейсом.
Такова предыстория и такова общая задача.
Вы это имели ввиду? Что-то надо конкретизировать?

[digitalis]

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

По мере старения (сейчас 68 лет)

То ли еще будет !

[NNK_RTR]

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