home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV1N3.ZIP / LISTS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-05-21  |  583 b   |  42 lines
  1. { Listing 2 - The Lists unit }
  2.  
  3. UNIT Lists;
  4.  
  5. INTERFACE
  6.  
  7. TYPE
  8.   ListNodePtr = ^ListNode;
  9.  
  10.   ListNode = OBJECT
  11.     Next : ListNodePtr;
  12.     PROCEDURE Init;
  13.     PROCEDURE App(NewList : ListNodePtr);
  14.   END;
  15.  
  16.  
  17. IMPLEMENTATION
  18.  
  19. PROCEDURE ListNode.Init;
  20. BEGIN
  21.    Next := NIL;
  22. END;
  23.  
  24.  
  25. PROCEDURE ListNode.App(NewList : ListNodePtr);
  26.  
  27. VAR
  28.   TmpPtr : ListNodePtr;
  29.  
  30. BEGIN
  31.   IF Next = NIL THEN
  32.     Next := NewList
  33.   ELSE BEGIN
  34.     TmpPtr := Next;
  35.     WHILE TmpPtr^.Next <> NIL DO
  36.       TmpPtr := TmpPtr^.Next;
  37.     TmpPtr^.Next := NewList;
  38.   END;
  39. END;
  40.  
  41. END.
  42.