2
20126301
Unregistered / Unconfirmed
GUEST, unregistred user!
请看如下代码:
Tuser=record
name,
sHttp:string;
age:integer;
end;
procedure testUser;
var user:^Tuser;
begin
if assigned(user) //此处怎么会返回true ?
new(user);
if assigned(user) //此处返回true 这才是正常
user.name:='GondSoft';
user.sHttp:='gondSoft.onchina.net';
dispose(user)
if assigned(user) //怎么还返回true ?
end;
Tuser=record
name,
sHttp:string;
age:integer;
end;
procedure testUser;
var user:^Tuser;
begin
if assigned(user) //此处怎么会返回true ?
new(user);
if assigned(user) //此处返回true 这才是正常
user.name:='GondSoft';
user.sHttp:='gondSoft.onchina.net';
dispose(user)
if assigned(user) //怎么还返回true ?
end;