3 回答
TA貢獻(xiàn)1830條經(jīng)驗(yàn) 獲得超3個(gè)贊
delphi程序有兩種 一種是控制臺(tái)程序(就是Dos程序) 一種是winform程序(就是有界面的程序)
控制臺(tái)程序中的入口函數(shù)可以理解為主函數(shù)
winform程序沒有主函數(shù)這一說
你說的主函數(shù)可能是指某個(gè)過程或者功能的入口函數(shù)
傳指針,將函數(shù)參數(shù)指定為指針就可以了
function func1(參數(shù): pointer):返回值類型;
調(diào)用的時(shí)候 func1(nil);
TA貢獻(xiàn)1820條經(jīng)驗(yàn) 獲得超3個(gè)贊
delphi 有主函數(shù)和子函數(shù)的說法嗎??
不過有函數(shù)和內(nèi)嵌函數(shù)的說法
也就是一個(gè)函數(shù)里 內(nèi)部又定義了一個(gè)函數(shù)
有點(diǎn)像你說的那個(gè)主函數(shù)和子函數(shù)的定義
是不是這樣:
procedure TForm1.zfun(P: Pointer);
var
tmp:integer;
procedure xfun(x:Pointer);
begin
if x=nil then
showmessage('nil');
end;
begin
xfun(P);
end;
執(zhí)行 zfun(nil);
就彈出一個(gè)對(duì)話框了 嘿嘿 這樣也相當(dāng)于是主函數(shù)和子函數(shù)了吧
TA貢獻(xiàn)1821條經(jīng)驗(yàn) 獲得超6個(gè)贊
nil就是空指針
直接把指針當(dāng)參數(shù)傳遞即可
類似這樣的
procedure xx(a:pchar);
var
tm:^TAdodataset;
begin
tm:=Pointer(a);
...
end;
- 3 回答
- 0 關(guān)注
- 512 瀏覽
添加回答
舉報(bào)
