Методы в качестве переменной

[DeKot]

Как объявить несколько процедур или функций в качестве переменных, чтобы потом использовать в другой процедуре.
Приблизительно так :
Var PR: Процедура 1;
Процедура 2:
...
Процедура n;
procedure Oбщая процедура(PR);
begin
PR //чтобы здесь можно было вызвать любую из Процедур 1 .. n
end;
Если это возможно , то какой тип переменным-процедурам присваивать?

[BOBAH13]

Прикольно К примеру Pointer ну или сложно Proc: procedure; ? :D Смешно не так ли ?

извените, я чтот вас не понимаю ( пост №3 )... Вам нужен ответ или нет ? Я его дал

[DeKot]

Да-а.Программиста может обидеть каждый..

[mutabor]

BOBAH13, ваши ответы еще больше запутывают, не хотите отвечать - не отвечайте. Раз человек спрашивает, значит он не в теме, ему ваши выкладки ужатые в одну строку до лампочки.

[_SERGEYX_]

Наверно, что-то нужно врде этого...

type
   TMyAction = (maProcedure1, maProcedure2, maProcedure3);

//глобальная
var   MyAction: TMyAction;

case MyAction of
maProcedure1: //выпонить процедуру 1;
 maProcedure2: //выпонить процедуру 1;
maProcedure3: //выпонить процедуру 1;
end;

[BOBAH13]

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

BOBAH13, ваши ответы еще больше запутывают, не хотите отвечать - не отвечайте. Раз человек спрашивает, значит он не в теме, ему ваши выкладки ужатые в одну строку до лампочки.

Что еще сказать ?

К примеру Pointer ну или сложно Proc: procedure; ?

и от вас ответа тоже не было так что полегче с подобными высказываниями

[DeKot]

Попробую по другому вопрос поставить.
Имеется массив и обработчик масива - периодически просматриваются
все значения в массиве

var  mas: array[1..10,1..10] of byte;
 procedure CtrlMas(PR -???/);
begin
  for i:= 1 to 10 do
    for j:= 1 to 10 do
       if mas[i,j] = n then   PR
end;

Так вот нужно в качестве PR сюда передавать разные процедуры.
По примеру _SERGEYX_ я так понимаю создать переменную список
и к нему привязать вызываемые процедуры.
Где то встречал, что можно в качестве параметра передавать саму процедуру, только как это оформить в коде?

[BOBAH13]

Так и не ясно что и куда передавать... дам список кода думаю выберите то что вам понадобится...

type
  TMyProc = procedure(Val1: String; Val2: Integer);
  // если надо от объекта-класса функцию то дописуите of object

procedure DoMyProc(Val1: String; Val2: Integer);
begin
  // to do somethings with values
end;

procedure DoSomething1(MyProc: TMyProc);
begin
  MyProc('Hello World', 0);
end;

procedure Do1;
var
  MyProc: TMyProc;
begin
  MyProc := DoMyProc;
  DoSomething1(MyProc);
end;

// или так
procedure DoSomething2(MyProc: Pointer);
begin
  TMyProc(MyProc)('Hello World', 0);
end;

procedure Do2;
var
  MyProc: TMyProc;
begin
  MyProc := DoMyProc;
  DoSomething2(@MyProc);
end;

Думаю теперь вы хоть присмотритесь что я написал ? А то я так смотрю некоторые только поспорить могут, а сами ничего и не отвечают