Delphi 배열 프로시저(Array Procedure)

//**************************************************** // if 문보다 case 문이 더 빠르다. // case를 컴파일하게 되면 배열 프로시져로 변형된다. // 그러므로 우리는 직접 구현함으로써, // 약 40% 이상의 속도 향상을 할 수 있다. //**************************************************** unit ArrayProcedure; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; procedure FormCreate(Sender: TObject); procedure showMsg(msg : Integer); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); private { Private declarations } public { Public declarations } // 프로시저 배열 선언 및 생성 A : array[0..3] of PROCEDURE; end; var Form1: TForm1; implementation {$R *.dfm} PROCEDURE A0; begin ShowMessage('A0'); end; PROCEDURE A1; begin ShowMessage('A1'); end; PROCEDURE A2; begin ShowMessage('A2'); end; procedure TForm1.FormCreate(Sender: TObject); begin // 배열에 프로시저 할당 A[0] := A0; A[1] := A1; A[2] := A2; end; procedure TForm1.showMsg(msg: Integer); begin A[msg]; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin showMsg(0); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin showMsg(1); end; procedure TForm1.BitBtn3Click(Sender: TObject); begin showMsg(2); end; end.