就用nil,判断空,或赋值空
var
PChar1 Char;
S :string;
....
begin
S :='Hello';
PChar1 :=nil
//此句改为 PChar1 :=''
或 PChar1 :=@S 看看
if PChar1 = nil then
showmessage('Nil');
end;
对于全局变量 p (PChar 类型),可以用:
if p=nil then showmessage('p 为空指针');
或
if not Assigned(p) showmessage('p 为空指针');
对于局部变量,p 不会自动为 nil,必须人工赋值,例如
var
pchar;
begin
p:=nil;
...
if p=nil then showmessage('p 为空指针');
end;
如果要判断 p 的内容是否为空,可以:
if p[0]=#0 then showmessage('p 为空值');