怎样根据字符串来执行相应的过程？(100分)

S

sixeight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #1

例如当 str = 'GetA' 则执行 procedure GetA; str = 'GetB' 则执行 procedure GetB,
不用条件语句来实现, 我想完成这样的语句效果：
procedure createEdit;
begin
with TEdit.Create(owner) do
begin
Parent := Self;
OnClick := 'GetA'; //这里怎样转换呢？
end
end

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #2

呵呵，我已经解决过了[]
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1289838

 

妙

妙兔无花

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #3

你必须把GetA声明和定义的跟OnClick一样
procedure TForm1.GetA(Sender:TObject);
begin
...
end;
然后就可以这么搞了
procedure TForm1.CreateEdit;
begin
with TEdit.Create(owner) do
begin
Parent := Self;
OnClick := GetA;
end
end;

 

妙

妙兔无花

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #4

beta的文章不错

 

S

sixeight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #5

多人接受答案了。

 

妙

妙兔无花

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #6

嘿嘿，我就没见过这么爽快结贴的。。。