안녕하세요. 아래방식으로 한번 해보시죠. -.-;;



type

TLoveMe = procedure of Object;



TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

FLoveMe: array[0..10] of TLoveMe;

procedure P0;

procedure P1;

procedure P2;

procedure P3;

procedure P4;

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



{ TForm1 }



procedure TForm1.P0;

begin

ShowMessage(IntToStr(0));

end;



procedure TForm1.P1;

begin

ShowMessage(IntToStr(1));

end;



procedure TForm1.P2;

begin

ShowMessage(IntToStr(2));

end;



procedure TForm1.P3;

begin

ShowMessage(IntToStr(3));

end;



procedure TForm1.P4;

begin

ShowMessage(IntToStr(4));

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

if Assigned(FLoveMe[2]) then

FLoveMe[2];

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

FLoveMe[0] := P0;

FLoveMe[1] := P1;

FLoveMe[2] := P2;

FLoveMe[3] := P3;

FLoveMe[4] := P4;

end;



end.





최영란 께서 말씀하시기를...

> 프로시저를 호출할 때

> i번째 값이 true일때, i번째 프로시저가 호출되도록 하는 법을 가르쳐주세요.

>

> 프로시저에 번호순서를 붙일수 있나요?

>