10万火急，重分悬赏200分

Question

type TMyfunc = function (参数定义) :返回值 ;var
   MyFunc :TMyfunc ;function fun1...
begin
...
end ;
...
begin
   myfunc := @fun1 ; //赋值
   myfunc() ;//调用
end ;

Answer 1

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

Answer 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 );当然，你不会愿意这么用的，我这样说你还会骂我呢。