|
 |
栏目导栏 |
|
| |
|
|
|
|
 |
资料搜索 |
|
| |
|
|
|
|
 |
热门文章 |
|
| |
|
|
|
|
 |
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
typeiFwLinux联盟 AFunctionType = function(IntIn : integer) : integer;iFwLinux联盟 iFwLinux联盟 function AddProc(IntIn : integer) : integer;iFwLinux联盟 beginiFwLinux联盟 Result := IntIn + 1;iFwLinux联盟 end;iFwLinux联盟 iFwLinux联盟 function SubProc(IntIn : integer) : integer;iFwLinux联盟 beginiFwLinux联盟 Result := IntIn - 2;iFwLinux联盟 end;iFwLinux联盟 iFwLinux联盟 procedure PassAFunction(var IntIn : integer;iFwLinux联盟 fn : AFunctionType);iFwLinux联盟 beginiFwLinux联盟 IntIn := fn(IntIn);iFwLinux联盟 end;iFwLinux联盟 iFwLinux联盟 procedure TForm1.Button1Click(Sender: TObject);iFwLinux联盟 variFwLinux联盟 i : integer;iFwLinux联盟 iFwLinux联盟 beginiFwLinux联盟 i := 10;iFwLinux联盟 iFwLinux联盟 PassAFunction(i, @AddProc);iFwLinux联盟 ShowMessage(IntToStr(i));iFwLinux联盟 iFwLinux联盟 PassAFunction(i, @SubProc);iFwLinux联盟 ShowMessage(IntToStr(i));iFwLinux联盟 end;iFwLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
|
|
|
|