Advertisement
Guest User

Untitled

a guest
Jan 19th, 2018
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.56 KB | None | 0 0
  1. Procedure DeleteNodeWithID(ID : Integer);
  2. Var
  3.     TempPtr, PrevPtr : TNodePtr;
  4.     Done : Boolean;
  5.  
  6. Begin
  7.     Done := False;
  8.     If Head = nil Then
  9.         Exit;
  10.     PrevPtr := Head;
  11.     TempPtr := Head;
  12.  
  13.     While True do
  14.     Begin
  15.         If (TempPtr^.StudRec.ID = ID) Then
  16.             Break;
  17.         If (TempPtr^.NodePtr^.NodePtr = nil) Then
  18.         Begin
  19.             Done := True;
  20.             Break;
  21.         End;
  22.         PrevPtr := TempPtr;
  23.         TempPtr := TempPtr^.NodePtr;
  24.     End;
  25.  
  26.     If not Done Then
  27.     Begin
  28.         If TempPtr = Head Then
  29.             Head := Head^.NodePtr
  30.         Else
  31.         Begin
  32.             PrevPtr^.NodePtr := TempPtr^.NodePtr;
  33.         End;
  34.     End;
  35. End;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement