home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / GENERI.ZIP / GENLIST.ARC / DOUBLINK.PAS next >
Encoding:
Pascal/Delphi Source File  |  1989-07-01  |  286 b   |  29 lines
  1. Unit DoubLink;
  2.  
  3. INTERFACE
  4.  
  5. Uses GenDatum;
  6.  
  7. Type
  8.   DPtr = ^D_Node;
  9.  
  10.   D_Node = Object (Datum)
  11.  
  12.     Next,Prev : DPtr;
  13.  
  14.     Procedure Create;
  15.  
  16.   End;
  17.  
  18. IMPLEMENTATION
  19.  
  20. Procedure D_Node.Create;
  21. Begin
  22.   Next := Nil;
  23.   Prev := Nil;
  24.   Datum.Create
  25. End;
  26.  
  27. BEGIN
  28. END.
  29.