Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Procedure DeleteNodeWithID(ID : Integer);
- Var
- TempPtr, PrevPtr : TNodePtr;
- Done : Boolean;
- Begin
- Done := False;
- If Head = nil Then
- Exit;
- PrevPtr := Head;
- TempPtr := Head;
- While True do
- Begin
- If (TempPtr^.StudRec.ID = ID) Then
- Break;
- If (TempPtr^.NodePtr^.NodePtr = nil) Then
- Begin
- Done := True;
- Break;
- End;
- PrevPtr := TempPtr;
- TempPtr := TempPtr^.NodePtr;
- End;
- If not Done Then
- Begin
- If TempPtr = Head Then
- Head := Head^.NodePtr
- Else
- Begin
- PrevPtr^.NodePtr := TempPtr^.NodePtr;
- End;
- End;
- End;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement