نحوه اجرای یک procedure

[سیروس مقصودی]

با سلام
من در برنامه ام procedureهایی نوشته ام و در حالت اجرا میخواهم نام یکی از procedureها را در داخل یک Edit بنویسم و وقتی که دکمه Run را میزنم آن procedure اجرا بشود . چگونه میتوانم این کار را انجام دهم .
با تشکر

[یوسف زالی]

سلام.
بهتره پروسیجر ها رو ببرید روی قسمت پابلیشد فرم، در این صورت می تونید با RTTI بهش دسترسی داشته باشید اون هم فقط با اسم.

[سیروس مقصودی]

با تشکر
من در برنامه ام تعداد n تا procedure دارم با یک مشخصه که بصورت زیر میباشند
Procedure Run_Proc_0001_(Sender : TObject)
Procedure Run_Proc_0002_(Sender: TObject)
Procedure Run_Proc_0003_(Sender : TObject)
.
.
Procedure Run_Proc_????_(Sender: TObject)
من میخواهم که تمام این procedure ها در یک زمان خاصی به ترتیب اجرا شوند ولی تعدادآنها مشخص نیست من میخواهم اجرای Procedureها را در داخل یک حلقه For گذاشته و اجرا کنم . من چگونه میتوانم این کار را انجام دهم
با تشکر

[یوسف زالی]

یک آرایه از پروسیجر ها درست کنید.
به همین راحتی

PArr = array of TNotifyEvent

[سیروس مقصودی]

با سلام و با تشکر از دوست عزیز آقای یوسف زالی
نحوه انتصاب یک نام پروسیجر به یک متغییر از نوع TNotifyEvent چگونه هستش .
من یک آرایه ای مثلا با نام NameProc از نوع TNotifyEvent دارم میخواهم سه پرسیجر با عنوان Run_Proc_01 و Run_Proc_02 و Run_Proc_03 را به متغییر NameProc انتصاب دهم چگونه میتوانم این کار را انجام دهم .
با تشکر


var
NameProc : array[1..3] of TNotifyEvent ;
i_ : byte ;
begin
For i_ := 1 to 3 do
begin
NameProc[i_] := ??
?? و برای اجرا چگونه دستور را بایستی بنویسم
end ;
end ;

[یوسف زالی]

unit Unit1;


interface


uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, TypInfo, Vcl.StdCtrls;


type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);


published
procedure P1(Sender: TObject);
procedure P2(Sender: TObject);
procedure P3(Sender: TObject);
procedure P4(Sender: TObject);
procedure P5(Sender: TObject);


public
PArr: array[1..5] of TNotifyEvent;
end;


var
Form1: TForm1;


implementation


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
PArr[2](Self);
end;


procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
Routine: TMethod;
ObjMethod: TNotifyEvent;
begin
for i := 1 to 5 do
begin
Routine.Data := Pointer(Self);
Routine.Code := Self.MethodAddress('P' + IntToStr(i));
PArr[i] := TNotifyEvent(Routine);
end;
end;


procedure TForm1.P1(Sender: TObject);
begin
Caption := 'P1';
end;


procedure TForm1.P2(Sender: TObject);
begin
Caption := 'P2';
end;


procedure TForm1.P3(Sender: TObject);
begin
Caption := 'P3';
end;


procedure TForm1.P4(Sender: TObject);
begin
Caption := 'P4';
end;


procedure TForm1.P5(Sender: TObject);
begin
Caption := 'P5';
end;


end.