将一个nil指针,从一个主函数传递到子函数中 这个问题怎么实现
3 回答
牛魔王的故事
TA贡献1830条经验 获得超3个赞
delphi程序有两种 一种是控制台程序(就是Dos程序) 一种是winform程序(就是有界面的程序)
控制台程序中的入口函数可以理解为主函数
winform程序没有主函数这一说
你说的主函数可能是指某个过程或者功能的入口函数
传指针,将函数参数指定为指针就可以了
function func1(参数: pointer):返回值类型;
调用的时候 func1(nil);
DIEA
TA贡献1820条经验 获得超2个赞
delphi 有主函数和子函数的说法吗??
不过有函数和内嵌函数的说法
也就是一个函数里 内部又定义了一个函数
有点像你说的那个主函数和子函数的定义
是不是这样:
procedure TForm1.zfun(P: Pointer);
var
tmp:integer;
procedure xfun(x:Pointer);
begin
if x=nil then
showmessage('nil');
end;
begin
xfun(P);
end;
执行 zfun(nil);
就弹出一个对话框了 嘿嘿 这样也相当于是主函数和子函数了吧
达令说
TA贡献1821条经验 获得超6个赞
nil就是空指针
直接把指针当参数传递即可
类似这样的
procedure xx(a:pchar);
var
tm:^TAdodataset;
begin
tm:=Pointer(a);
...
end;
- 3 回答
- 0 关注
- 421 浏览
添加回答
举报
0/150
提交
取消