type Mytree=record mid:integer; mname:string; msex :string;end; tMytree=^Mytree;这是定义记录类型的指针。在一个方法里面或按钮事件里面或。。。。var PMytree:tMytree;begin new(PMytree); PMytree^.mid:=1; PMytree^.mname:='小明'; PMytree^.msex :='男';end;添加记录。有没有^都可以我认为。用个Tlist类型的var list:Tlist;begin list.add(PMytree); list.delete(i);end;指针只能存放一条记录,都是用它做个中间的来进行操作的。