|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
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论坛讨论 |
|
|
|
|
|
