如下:
pstudent=^tstudent;
tstudent=record
id:integer;
name:string;
end;
procedure addtreeview;
var
p:pstudent;
node:ttreenode;
begin
for i:=0 to 100 do
begin
new(p);
node:=treeview1.items.add(nil);
p^.id:=i;
p^.name:='***';
node.data:=p;
end;
end;
请问我要不要自己释放这个指针。我上面写的对不对 ?
本人刚刚来,没分啊。热心朋友请帮下。
pstudent=^tstudent;
tstudent=record
id:integer;
name:string;
end;
procedure addtreeview;
var
p:pstudent;
node:ttreenode;
begin
for i:=0 to 100 do
begin
new(p);
node:=treeview1.items.add(nil);
p^.id:=i;
p^.name:='***';
node.data:=p;
end;
end;
请问我要不要自己释放这个指针。我上面写的对不对 ?
本人刚刚来,没分啊。热心朋友请帮下。
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
Dispose(Node.Data);//不要用FreeMem, 如果你不知道FreeMem和Dispose的区别的话