请教DELPHI的记录指针的定义及相关操作(50)

  • 主题发起人 sgzhou12345
  • 开始时间
S

sgzhou12345

Unregistered / Unconfirmed
GUEST, unregistred user!
请教DELPHI的记录指针的定义及相关操作添加记录删除记录修改记录保存记录查询记录
 
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;指针只能存放一条记录,都是用它做个中间的来进行操作的。
 
type link=record data:integer; next : link;end; tp=^link; h,temp:tp;begin h:=nil; new(temp); temp^.data:=1000; temp^.next:=nil; if h=nil then h:=temp else h^.next:=temp; end;
 
上边是用指针创建一个 结点. 删除一个头结点是temp:=h;h:=h^.next;disposs(temp);
 
敢问下,记录指针有什么用?
 
顶部