我这样测试,竟然不行:
procedure test;
var
p:Pchar;
begin if p=nil then
showmessage('good');
end;它竟然没有显示,奇怪了,请问是为什么呢?
procedure test;
var
p:Pchar;
begin if p=nil then
showmessage('good');
end;它竟然没有显示,奇怪了,请问是为什么呢?
解决方案 »
- 如何将WebBrowser内容转成pdf?还有怎么攒积分?
- adoquery的post出错 Invalid variant type
- DELPHI2009的困惑
- 存储过程的问题
- 大虾帮忙!!如何根据SQLServer的错误代码处理插入记录重复?
- stausbar控件的第一个tstauspanel如何显示系统时间?
- 客户端运行时提示:无法创建终结点!这是没人问过的问题啊!帮帮我斑竹!
- 问几个关于Object Pascal的问题(大概可以归为语法问题)
- 如果用ADOTABLE连接数据库,能对这个数据库里的数据进行排序吗?
- 请帮忙看看这段SQL语句。谢谢
- 一个简单的多线程同步问题
- spcomm中如何发送接受double的数据?
没有赋值的PChar变量不为空,所以没有显示。
begin
if strpas(pc)='' then
showmessage('字符串为空!');
end;
procedure test;
var
p:Pchar;
begin showmessage(inttostr(length(strpas(p))));
end;得到的结果竟然是3,怎么回事哦
var
p:Pchar;
begin
//p指向堆栈中未知位置.
end;
p:pchar;
i:integer;
begin
p:=GetMemory(2);
i:=StrLen(p);
if i=0 then
showmessage('empty')
else
showmessage('not empty') ;
FreeMemory(p)
end;
showmessage(inttostr(i))竟然等于3,showmessage(p+'a')竟然等于'激Ca'我在几台机都是这样,应该不是机器问题或者delphi 问题吧。
win2000+delphi7/delphi6