如object pascal 能如现下面这样功能么?
function abc()
...
function def()
..result=pass(abc(),def(),otherParameter);

解决方案 »

  1.   

    result=pass(@abc(),@def(),otherParameter);
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);  function a: Integer;
      begin
        Result := 1;
      end;  function b: Integer;
      begin
        Result := 2;
      end;  function c(a, b: Integer): Integer;
      begin
        Result := a + b;
      end;begin
      Caption := IntToStr(c(a, b));
    end;
      

  3.   

    我看到一段javascript程序是这么用的,所以想起用delphi来做了。
    纯编码问题,只是感觉好玩。