各高人，请问函数怎么做为另一个函数的参数？请举列说明。。。。

Question

Function S(I:integer):Integer;
begin
  Result := 2*I;
end;Funtion T(P:integer):string;
begin
  Result:=inttostr(S(5));
end;

Answer 1

to  ibear(大熊):
在C++里我知怎么做，但在PASCAL里语法我不知？？？TO JYYF21(七剑飞仙) ：我不是这个意思。

Answer 2

type
  TMyFun=function(i,j: Integer): Boolean;function A(i,j: Integer): Boolean;
begin
  Result := i>j;
end;function B(myfun: TMyFun): Boolean;
begin
  Result := myfun(1,2);
end;procedure Caller;
var
  fun: TMyFun;
begin
  fun := A;
  if B(fun) then
  begin
    ShowMessage(
  end;
end;

Answer 3

这个问题应该比较简单，作简单的实现方法：
function p1:integer;
begin
Result:=2;
end;function p2:integer;
begin
Result:=1;
end;function sum(n1:integer;n2:integer):integer;
begin
  result:=n1+n2;
end;
主程序里面
begin
  sum(p1,p2);
end;
另外可以通过指针来实现