请问高手

type   Func   =   function(X:   Integer):   Integer;    
  var      
    F:   Func;           P:   Pointer;           N:   Integer;    
  F   :=   Func(P);                                             {   Assign   procedural   value   in   P   to   F   }   Func(P)   :=   F;       {   Assign   procedural   value   in   F   to   P   }    
  @F   :=   P;       {   Assign   pointer   value   in   P   to   F   }    
  P   :=   @F;       {   Assign   pointer   value   in   F   to   P   }    
  N   :=   F(N);   {   Call   function   via   F   }    
  N   :=   Func(P)(N);     {   Call   function   via   P   }    
   
  请问最后一句是什么意思 问题点数：20、回复次数：2Top

1 楼jiezhi（风满袖）回复于 2003-05-03 01:25:42 得分 20

N   :=   Func(P)(N);    
  --->>  
  N   :=   F(N);Top

2 楼hkbarton（→Beginner←）回复于 2003-05-03 12:33:05 得分 0

f(n)Top

相关问题

• 请问
• func
• assign
• pointer
• integer
• procedural
• callfunction via

• 帖主：zlhome
• jiezhi

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载