10万火急，重分悬赏100分

[wylove]

谁能够告诉我在Delphi中如何实现"宏代换",例如函数名称为一个字符串变量myfunc="function1"，如何通过myfunc这个变量来调用function1这个函数？多谢！只要能够解答者，都给分！

[dancemaple]

可以用函数类型来实现
type
TMyFunc = function（） // 后面要跟参数，和你的function1一致
...

var
MyFunc: TMyFunc;

MyFunc := function1;
以后就可以用myfunc来调用function1了

[tigerfox]

哈哈,楼上先说了函数指针也.

[小伍老师]

function AAAA(string)
if string='myfunc' then
call Function1()
end if

if string='myfunb' then
call function2()
end if

end function

[wylove]

sorry,我的意思是函数的名称是动态的。希望各位大虾能清楚！

[fontain]

是啊，函数指针也不是静态的阿，先说清楚你要做什么吧

[zyp9702]

在DELPHI没有宏代换这个功能.换一下你的思路,你可以定义一个函数,用一个参数来表示你所要进行的功能.例如:FUNCTION AA(I:STRING)
当I为1时进行增加操作;
当I为2时进行删除操作;
等等.

[光明山人]

以下两种情况可以：

1.是输出的函数：
按照Windows的方法就行了。
// 定义函数的地方
procedure MyProc( p: Integer ); export; stdcall;
begin
// do what you want to do
end;

exports
MyProc;

// 调用的地方
type
TMyProc = procedure(p: Integer);

procedure InvokeMyProc(
const sProcName: String; // 过程名
param: Integer // 参数
);
var
aProc: TMyProc;
begin
aProc := GetProcAddress( hInstance, PChar(sProcName) );
TMyProc(aProc)( param );
end;

// 使用范例
InvodeMyProc( 'MyProc', 1 );

2.是类对象中的published方法：
type
TMyMethod = procedure(p: Integer) of object;

procedure InvokeMyMethod(
Obj: TObject; // 对象
const MethodName: String; // 方法名
param: Integer // 参数
);
var
aMethod: TMethod;
begin
aMethod.Code := Obj.MethodAddress( MethodName );
aMethod.Data := Obj;
TMyMethod(aMethod)( param );
end;

//////////////////////////
其实，还有一种方法：
if ProcName='MyProc' then
MyProc( 100 );

当然，你不会愿意这么用的，我这样说你还会骂我呢。