怎样通过名称来调用function和procedure?

[snowtiger2000]

我要通过名称来调用function和procedure,请问应该怎样做?

比如 我有一个procedure和function
procedure myprocedure;
function myfunction():integer;

我要在程序里用他们的名字来调用他 要这样实现
var
s:string;
s1:string;
begin
s:='myprocedure';
s1:='myfunction';
以上是将procedure和function的名称赋给string变量,然后怎么通过s和s1来调用?
end;

[simonzone]

function myfunction: integer;
....

var
F: function: inteeger;
....
F:=myfunction; //可以将函数myfunction 指定给F

[simonzone]

procedure myprocedure;
....


var
P: procedure;
....
P:=myprocedure;

[snowtiger2000]

to simonzone

实际上我是要通过string变量来中转一下 因为有很多个名称类似,按顺序的函数和过程

component有findcomponent 我就是想要这种类似的功能

应该怎么做?

[shuaigc]

up.我也要问同样的问题。