delphi 的一些语法问题

Question

    TDoAction = function(Values1,Values2:string):string 
    TDoAction = procedure(Values1,Values2:string)  这样的函数  和平时那种有什么区别吗？  函数模板  类函数？   运行的时候 怎么跟踪..  对这种  实在是不清楚 ！！  麻烦大家讲解下  发资料 发链接！！！

Answer 1

procedure p(Values1,Values2:string)
begin
  ShowMessage(Value1+','+Value2);
end;var
  a: TDoAction;
begin
  a := p;
  a('123','456')
end;

Answer 2

delphi里称呼为函数指针。一个函数指针TDoAction = function(Values1,Values2:string):string 
声明 VAR S:TDOACTION;作用相当于一个回调函数。在一个事件处理完成后，提供使用者一个操作的入口。类似于JAVA里 的监听