链表问题

Question

链表结果如下：
  type
     Pinfo=^Tinfo;
     Tinfo=record
       ID:Integer;
       Link:Pinfo;
其中ID为每一条记录的唯一标识符，Link指向下一个记录的地址。
已知链表的第一个指针Front，写出增加链表，删除指定ID记录的函数。 

Answer 1

procedure DelNode(var Front:Pinfo;myid:integer);
var pre,Cur:Pinfo;
begin  
  
  Cur:=Front;
  if Front^.id=myid then 
    begin
      Front^.link=Cur^.link.link;
      Dispose(Cur); 
    end;   while not (Cur^.link) do
  begin    
    pre=Cur;
    Cur:=Cur^.link;
    if cur^.id=myid then 
    begin
      Pre^.link=Cur^.link;
      Dispose(Cur); 
    end; 
  end;
end

Answer 2

哦，应该是Front^.link=Cur^.link^.link;