마음의 안정을 찾기 위하여

풀이]

  ※ 전제조건 : 모든 프로시저는 같은 Type / 같은 Parameter를 사용한다.

1. Procedure 를 published 영역에 선언한다.

2. "MethodAddress"를 이용하면 Published 영역에 선언된 메쏘드의 주소를 가져 올 수 있다.

   이유는 정확히 모르지만, published는 스트림화가 가능하기 때문이라는 속설이... -_-;;;

   이와는 별도로 "FieldAddress"라는 함수는 멤버변수의 주소를 참조 가능하다.

   (머 용민군이 프로시져에 대해서만 문제를 냈으므로 저건 스킵 -_-;)

3. 프로시저의 주소를 가져와 프로시저를 실행하는 함수는 다음과 같이 구현한다.

   실행할 프로시저가 다음과 같다고 할때.

   procedure TForm1.a1;
   begin

     ...
   end;

   procedure TForm1.a2;
   begin

     ...
   end;

   procedure TForm1.a3;
   begin

     ...
   end;

         .......

procedure TForm1.ExecLoopProc(LoopProcStr : string);
var
   LoopProc: procedure; <=프로시저의 타입을 구현해준다. 파라미터가 있는경우는 그것도 처리를...
begin
   // published method의 시작번지를 구한다
   LoopProc:= MethodAddress(LoopProcStr );

   if Assigned(LoopProc) then
      LoopProc; <=프로시저 실행~~~~~~~~ 야호~
end; 

4. 이제 구현한 함수를 이용해서 a1~a1000까지의 함수를 실행해보자. 잇힝~

   Var

      iLoop : Integer;

   Begin

      For iLoop := 1 To 1000 Do Begin

         ExecLoopProc(Format('a%d',[iLoop]);

      End;

   End;