Не удаляется первый элемент односвязного списка. Опции

[alex457]

Не удаляется первый элемент односвязного списка. Немогу понять в чем проблема. Подскажите, буду очень благодарен.

procedure DeleteItem(Num:integer);
   var q:list;
      begin
          t:=lst;
          while t^.Key <> Num do t:= t^.Next;
          q:=t^.Next;
          t^.Next := q^.Next;
          Dispose(q);
      end;

Сообщение отредактировано: alex457 - 30.04.2012 2:06

[Федосеев Павел]

Ты уверен, что удаляемый элемент (q) имеет ключ равный Num?

          q:=t^.Next;        <------- Вот в этом месте
          t^.Next := q^.Next;
          Dispose(q);