10万火急，重分悬赏200分

[wylove]

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

[quantum]

切......,你以为是VB啊?

[yangkunjie]

20分？

[Liujc]

type TMyfunc = function (参数定义) :返回值 ;

var
MyFunc :TMyfunc ;

function fun1...
begin
...
end ;
...
begin
myfunc := @fun1 ; //赋值
myfunc() ;//调用
end ;

[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 );

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

[xys]

gz